Program z6 var s,k integer begin s: =0 for k: =0 to 6 do s: =s+15 write (s) end
171
248
Ответы на вопрос:
Program project; uses crt; var a,b,c: real; sa: real; begin clrscr; read(a,b,c); readln; sa: =(a+b+c)/3; if sa> =0 then writeln(sa: 0: 5); readln; end.
Популярно: Информатика
-
max69003.11.2020 00:54
-
ghromovrostisl2211.01.2021 12:31
-
АндрейXXXМ15.01.2022 09:20
-
Манюня58904.12.2022 20:59
-
Marchendro7712.06.2020 15:55
-
RainbowRashers01.05.2020 15:59
-
shapovalovalyubochka08.04.2020 08:55
-
5733888831.05.2023 11:54
-
Zetexer10.10.2021 15:18
-
Наташа135806422528.04.2023 14:43