Определить количество чисел от 10 до 50, сумма которых равна 5

Надо написать в системе Паскаля

Question

Информатика

Пинна

5 июня, 01:19

Определить количество чисел от 10 до 50, сумма которых равна 5

Надо написать в системе Паскаля

+1

Ответы (1)

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

Ритуша · Answer 1

Program z1;

var k, n, a, b, c:integer;

begin

for k : = 10 to 50 do

begin

a:=k mod 10;

b:=k div 10;

c:=a+b;

If c=5 then

n:=n+1;

end;

write (n) ;

end.

Определить количество чисел от 10 до 50, сумма которых равна 5Надо написать в системе Паскаля

Определить количество чисел от 10 до 50, сумма которых равна 5

Надо написать в системе Паскаля