Гонорат
4 год назад
найти сумму от начала до первого кратного 5
ОТВЕТЫ
Анна
Oct 24, 2020
program abc;
var x,s:integer;
begin
x:=1;
while (x mod 5)<>0 do
begin
writeln('Введите x');
readln(x);
s:=s+x;
end;
writeln(s);
end.
var x,s:integer;
begin
x:=1;
while (x mod 5)<>0 do
begin
writeln('Введите x');
readln(x);
s:=s+x;
end;
writeln(s);
end.
725
Смежные вопросы: