Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
var
n,a: integer;
begin
readln(n);
a: =(n mod 10)*1000+((n mod 100) div 10)*100 + ((n mod 1000) div 100)*10+ n div 1000;
if n> a then
writeln('число ', n, ' больше перевертыша ', a)
else
writeln('перевертыш ', a, ' больше числа ', n);
end.
program xxx;
var i, s : integer;
s: =0;
for i: = 10 to 99 do
if i mod 5 = 0 then s: =s+i;
writeln('сумма двузначных чисел, кратных 5 =', s);
readln
в одном байте восемь бит. следовательно 100/8=12.5
ответ 12.5
Популярные вопросы