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
    inc(k);

write(k);
end.

Answer 2

Я могу попытаться написать такую программу для вас, но я не гарантирую, что она будет работать без ошибок. Вот возможный вариант решения:

program SumOfDigits;
var
  i, j, sum, count: integer;
begin
  count := 0;
  for i := 10 to 99 do
  begin
    sum := 0;
    j := i;
    while j > 0 do
    begin
      sum := sum + (j mod 10);
      j := j div 10;
    end;
    if sum <= 15 then
      count := count + 1;
  end;
  writeln('Количество двузначных чисел, сумма цифр которых не превышает 15, равно ', count);
end.