Const
n=5;
Var
ar:array[1..n] of integer;
ar2:array[1..n] of integer;
i,k:integer;
function prost(a:integer):boolean;
var i:integer;
b:boolean;
begin
b:=true;
for i:=2 to a div 2 do
if a mod i=0 then
begin;
b:=false;
break;
end;
if a=1 then b:=false;
prost:=b;
end;
begin;
randomize;
k:=0;
for i:=1 to n do
begin;
ar[i]:=random(101);
write(ar[i]:4);
end;
writeln;
for i:=1 to n do
if prost(ar[i]) then
begin;
inc(k);
ar2[k]:=ar[i];
write(ar2[k]:4);
end;
end.<span>
</span>
Python:
slovo = str(input())
a = slovo[::-1]
if slovo == a:
print("yes")
else:
print("no")
pascal:
function palindrom(var arg:string):boolean;
var i:byte;
str:string;
begin
palindrom:=false;
str:='';
for i:=length(arg) downto 1 do
str:=str+arg[i];
if str=arg then palindrom:=true; end;
var s:string;
begin readln(s); writeln(Palindrom(s));
readln;
end.
А) 1999
Б) 978
В) 1147
В римской системе счисления I обозначает 1, V обозначает 5, X — 10, L — 50, C — 100, D — 500, M — 1000. Например, число 3 в римской системе счисления будет обозначаться как III. Однако не все так просто, и она не является полностью непозиционной системой счисления, потому что в римской системе счисления есть дополнительное правило, которое влияет на величину, которую обозначает цифра, в зависимости от ее положения. Правило это запрещает употреблении одной и той же цифры более 3 раз подряд, поэтому три это III, а четыре это уже IV, и I(1), стоящая перед большей цифрой V(5), обозначает вычитание, то есть фактически равна -1.
Зачастую играм, особенно современным, не достаёт характеристик пользовательского компьютера: оперативной памяти, видеопамяти, тактовой частоты процессора и видеопроцессора, места на диске, нормального монитора и т. д. Вот и не запустишь, по-крайней мере, нормально не поиграешь в них на слабых машинах.
<h3>PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := SeqRandomReal(ReadInteger('n='), -99, 99)
.Select(t -> Round(t, 2)).ToArray;
a.Println;
a.Where((v, i)-> i.IsEven).Aggregate(1.0, (p, q)-> p * q).Println;
a.Sort;
a.Println
end.