Предмет: Информатика,
автор: KatRin07
Пожалуйста, помогите составить программу в паскале для данной задачи:
Среди всех двузначных чисел найте те, сумма цифр которых равна n (0<n≤18) и количество этих чисел.
Ответы
Автор ответа:
0
var
i, k, n: integer;
begin
read(n);
for i := 10 to 99 do
if i mod 10 + i div 10 = n then begin
writeln(i);
k := k + 1;
end;
writeln('k = ', k);
end.
Интересные вопросы
Предмет: Литература,
автор: sofia2010gabitova
Предмет: Химия,
автор: shekhirev000
Предмет: Математика,
автор: Nibbler89
Предмет: Химия,
автор: lovely556
Предмет: Биология,
автор: Аноним