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

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

Question

Информатика

Федяка

21 августа, 14:14

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

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

+4

Ответы (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

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