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

Нужно написать программу используя div и mod, без string и прочего!

Question

Информатика

Гермуся

28 марта, 22:39

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

Нужно написать программу используя div и mod, без string и прочего!

+4

Ответы (1)

Знаете ответ на вопрос?

Маринка · 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

inc (k) ;

write (k) ;

end.