Ответы на вопрос:
Program f1; var i,n,t,y: integer; s; real; begin read(n); for i: =-n to n do begin if i mod 2=0 then y: =i; if i mod 5 =0 then t: =i ; s: =y/t; writeln(s); end.
Популярно: Информатика
-
sarranuryeva13.06.2023 04:02
-
Ааапллортдопсмтдд25.09.2021 01:00
-
egordyachenko21.01.2021 07:49
-
sashabibik77704.06.2022 18:13
-
fox37028.06.2021 08:10
-
Налим1221.09.2022 04:29
-
Davidkontrasity24.07.2021 00:46
-
LeНин01.06.2023 06:13
-
GolubinoeMoloko19.01.2023 08:24
-
fonvg25.05.2023 02:57