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

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

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

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

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

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

program z1;var k,n,a,b,c:integer;beginfor k :=10 to 50 dobegin a:=k mod 10;b:=k div 10;c:=a+b;If c=5 thenn:=n+1;end;write (n);end.