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

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.

Comments

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

---

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

---

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

---

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

---

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