Напишите программу, которая подсчитает, сколько существует двузначных положительных чисел...

Question

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

Answer 1

Program prog;
uses crt;

var i,k: integer;

begin;
clrscr;

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

write(k);
end.

Comments

Спасибо!