Zhaakdah 3 ноября 2019 в 08:19

Напишите программу, которая подсчитает, сколько существует двузначных положительных чисел сумма цифр которых не превышает 15 (Паскаль).
Нужно написать программу используя div и mod, без string и прочего!

Program prog;
uses crt;

var i,k: integer;

begin;
clrscr;

for i:=10 to 99 do
if ((i mod 10)+(i div 10))lt;=15 then
inc(k);

write(k);
end.

190 50

Для комментирования необходимо зарегистрироваться на сайте