Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
самое близкое число, к числу 25952, которое читается одинаково слева направо и справа налево это число: 26062.
26062 - 25952 = 110 секторов проверила программа за 2 секунды
110 : 2 = 55 секторов проверяет программа за секунду
var
mas : array[1..15] of integer;
i: integer;
begin
for i: =1 to 15 do
mas[i] : = random(40)-20;
if (mas[i] mod 2 = 1) then mas[i]: =mas[i]/2;
if (mas[i] mod 2 = 0) then mas[i]: =mas[i]*3;
end;
var x1,x2,x3,x4,x5: integer;
s: real;
read(x1,x2,x3,x4,x5);
s: = (x1+x2+x3)/(x4+x5);
if round(s)=s then writeln("celoe - "s);
end.
var a: array [1..100] of integer;
i,n: integer;
s: string;
randomize;
for i : =1 to 100 do
a[i]: = random(1000)+1000;
a[i]: =a[i] mod 100;
a[i]: =a[i] div 10;
if a[i] mod 2 = 0 then n=n+1;
writeln(n);
Популярные вопросы