Подсчитать сумму двузначных чисел, сумма цифр которых не превышает 10.Program Pr10;Var n, a, b, k: integer;begink:=0; for n:=10 to 99 do begina:= n div 10; b:=n mod 10начало в pascal
Подсчитать сумму двузначных чисел, сумма цифр которых не превышает 10.Program Pr10;Var n, a, b, k: integer;begink:=0; for n:=10 to 99 do begina:= n div 10; b:=n mod 10начало в pascal
Похожие вопросы
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
if (a + b <= 10) then
begin
k:= k + n;
end;
writeln('Сумма двузначных чисел, сумма цифр которых не превышает 10: ', k);
end.