Вопрос по информатике:
Написать на паскале: Из чисел от 10 до 99 вывести те, сумма цифр которых равна s (s>0; s<18) Cрочно!
- 02.05.2016 00:02
- Информатика
- remove_red_eye 7086
- thumb_up 44
Ответы и объяснения 2
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
- 02.05.2016 22:19
- thumb_up 35
//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]
- 03.05.2016 12:25
- thumb_up 48
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.