Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
Если в блокноте ,то 6 бит. В майкрософте ворд - 12,4 кб
Объяснение:
program p_1
var
a: string
begin
writeln ('vvedite nazvanie rek');
read (a);
if (a='волга,днепро,нёман,енисей')then
writeln ('в беларуси протекают только днепро,нёман');
end.
n,a: integer;
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);
Популярные вопросы