Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
великобритания - лондон
греция - афины
италия - рим
нидерланды -
франция - париж
100 кбайт = 100 * 8 = 800 кбит
800 : 1024 = 0,78125 мбит
0,78125 : 100 = 0,0078125 сек
program zadacha6; var a,b: real; begin readln(a,b); if a> b then writeln (a) else writeln (b); end.
не? я не уверен
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.
Популярные вопросы