Определить количество чисел от 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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
