Дано целое число.если оно является отрицательным,то прибавить к нему 100, в противном случае разделить на 10 вывести полученное число
199
481
Ответы на вопрос:
Var i: integer; a,c: real; begin c: =0; writeln('введите четыре произвольных числа'); for i: =1 to 4 do begin read(a); c: =c+int(a) end; c: =c/4; writeln('среднее арифметическое равно ',c) end. тестовое решение: введите четыре произвольных числа 4.7 5.03 4.12 5 среднее арифметическое равно 4.5
Популярно: Информатика
-
nikadidok30.01.2020 00:54
-
anjelikakotiv17.06.2021 05:02
-
Golovina07706.01.2020 07:14
-
geraveselov2013.03.2021 18:12
-
Elvirkavirka26.01.2020 19:23
-
папаочка22804.07.2021 04:01
-
irinamiller9306.05.2020 16:48
-
dudich9719.03.2022 09:24
-
kristina1710200423.08.2020 23:10
-
burlakovartemyoxcyjx16.10.2020 15:06