Написать на паскале: из чисел от 10 до 99 вывести те, сумма цифр которых равна s (s> 0; s< 18) cрочно!
289
408
Ответы на вопрос:
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]
// pascalabc.net 3.3 begin var s: =readlnstring; s: =s.select(c-> upcase(; s.println; end. пример: написать программу, котрая заменяет все маленькие буквы на большие написать программу, котрая заменяет все маленькие буквы на большие
Популярно: Информатика
-
carevruslan27.10.2022 05:44
-
stalker200000808.02.2021 22:03
-
КетиШифр24.10.2020 16:04
-
kristinakarpova217.03.2020 16:58
-
timkaserka15.11.2020 11:40
-
tupayadaria09.10.2022 22:32
-
280artur28022.11.2022 03:34
-
ДаняПрохоров27.03.2021 19:28
-
NiKoN04407.06.2020 09:07
-
kashasha05.05.2022 08:14