Подсчитать сумму двузначных чисел, сумма цифр которых не

превышает 10.

Program Pr10;

Var n, a, b, k: integer;

begin

k:=0; for n:=10 to 99 do begin

a: = n div 10; b:=n mod 10

начало в pascal

Question

Информатика

Викентий

14 октября, 06:20

Подсчитать сумму двузначных чисел, сумма цифр которых не

превышает 10.

Program Pr10;

Var n, a, b, k: integer;

begin

k:=0; for n:=10 to 99 do begin

a: = n div 10; b:=n mod 10

начало в pascal

+2

Ответы (1)

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

Давид · Answer 1

Program Pr10;

var

i, j, s: integer;

begin

s : = 0;

for i : = 1 to 9 do

for j : = 0 to 9 do

if (i + j < = 10) then

inc (s, i * 10 + j) ;

writeln (s) ;

end.

Подсчитать сумму двузначных чисел, сумма цифр которых непревышает 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;

begin

k:=0; for n:=10 to 99 do begin

a: = n div 10; b:=n mod 10

начало в pascal