Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
сумму чисел один,два,три,четыре,пять разделить на разность чисел 10 и 7.равно пяти.
var a: integer; beginreadln(a); write (a div 10); end.
егора-зеленая на 16гб
василий-желтую на 8гб
пети-краснаяна 4гб
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.
Популярные вопросы