Ответы
Ответ дал:
0
1.
var i,k,n:integer;
begin
read (n);
k:=0;
for i:=1 to n do
begin
if i mod 5 = 0 then k:=k+1;
end;
write(k);
end.
var i,k,n:integer;
begin
read (n);
k:=0;
for i:=1 to n do
begin
if i mod 5 = 0 then k:=k+1;
end;
write(k);
end.
Ответ дал:
0
спасибо большое
Похожие вопросы
2 года назад
2 года назад
7 лет назад
10 лет назад
10 лет назад