Напишите программу в Паскале
Среди всех двузначных чисел найти те, сумма цифр которых равна n (0

2

Ответы и объяснения

  • nelle987
  • Ведущий Модератор
2014-02-03T14:27:59+00:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.
Var i, n: integer;
begin
readln(n);
for i:=10 to 99 do 
if (i mod 10 + i div 10 = n) then
write(i, ' ')
end.
2014-02-03T14:29:07+00:00
Var n,i:integer;
begin
readln(n);
for i:=10 to 99 do
if (i mod 10 + i div 10) =n then writeln(i);
end.