if length(s) mod 2=0 then writeln ('четное') else writeln('не четное');
readln;
end.
Ответ дал: Гость
30 * 70 = 2100 символов на 1 странице
5 * 2100 = 10500 символов на 5 страницах
при кодировке ascii - 1 символ = 1 байт, значит 20500 байт оперативной памяти займет этот текст.
Ответ дал: Гость
таблица умножения
программа телепередач
телефонный справочник
прогноз погоды
меню в столовой
Ответ дал: Гость
1)
var a, b: integer;
begin readln(a, b); if (a div 10 + a mod 10) > (b div 10 + b mod 10) then writeln('сумма цифр ', a, ' больше') else writeln('сумма цифр ', b, ' больше'); end.
2)
var a: integer;
begin readln(a); writeln((a mod 10) * 10 + a div 10); end.
3)
var a: integer;
begin readln(a); if ((a div 100) = (a mod 100) div 10) or ((a div 100) = (a mod 10)) or ((a mod 100) div 10 = (a mod 10)) then writeln('есть 2 одинаковые цифры') else writeln('нет 2-х одинаковых цифр'); end.
Популярные вопросы