Написать на паскале: Из чисел от 10 до 99 вывести те, сумма цифр которых равна s (s больше 0; s меньше 18) Cрочно!
Написать на паскале: Из чисел от 10 до 99 вывести те, сумма цифр которых равна s (s>0; s<18) Cрочно!
Гость
Ответ(ы) на вопрос:
Гостьvar i,s:integer;
begin
write('s = '); readln(s);
for i:=10 to 99 do
if (i div 10)+(i mod 10)=s then write(i,' ');
writeln;
end.
Пример:
s = 10
19 28 37 46 55 64 73 82 91
Гость//Pascal ABC.NET 3.1 сборка 1219
begin
var a:=ReadInteger();
writeln(range(10,99).where(x -> (x mod 10)+(x div 10)=a));
end.
Пример ввода:
13
Пример вывода:
[49,58,67,76,85,94]
Не нашли ответ?
Похожие вопросы