Предмет: Информатика,
автор: Madinkaak
Пожалуйста помогите с заданиями на левой стороне доски. Пожалуйстаа
Приложения:
Ответы
Автор ответа:
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
спасибо большое
Интересные вопросы
Предмет: История,
автор: nika1872
Предмет: Английский язык,
автор: neznayka0050
Предмет: Химия,
автор: liana300900
Предмет: Математика,
автор: Батинок