Question

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

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.

Answer 2

Буду признателен если отметите как лучший

Answer 3

Как отметить ?

Answer 4

поищите кнопку лучший ответ

Answer 5

к вам вернуться часть баллов, а мне плюсик)

Answer 6

Пишут,что кнопка появится на следующий день