Определить количество чисел от 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.
Не нашли ответ?
Похожие вопросы