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

Определить количество чисел от 10 до 50, сумма которых равна 5 Надо написать в системе Паскаля
Гость
Ответ(ы) на вопрос:
Гость
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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы