Написать на паскале: Из чисел от 10 до 99 вывести те, сумма цифр которых равна s...

Verified answer

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

7 votes Thanks 11

needlife Спасибо большое!)

Gleb1Kosyrev

Verified answer

//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]

2 votes Thanks 1

Answers & Comments

Verified answer

Verified answer

Дано натуральное число n. Определить является ли оно палендромом (перевертышем) ...

Можно ли разрешить глобальные проблемы? Если можно то как? Если нельзя то почему...

Найти место положение и значение максимального элемента массива 7 на 7. Написать...

Запишите словосочетания, заменяя выделенные слова словами-синонимами, в корне ко...

Запишите словосочетания, заменяя выделенные слова словами-синонимами, в корне ко...

помогите решить пожалуйста :( !!...

Сумма двух наибольших и сумма двух наименьших в Pascal Написать решение...

Помогите решить упражнения!...

СРОЧНО! Помогите пожалуйста выполнить тест-4, тест-5, тест-6. Хотя бы сколько см...

помогите сделать английский язык...

рекомендуемые вопросы

Helpful Links

Helpful Social