Синформатикой (паскаль) написать на языке тurbo pascal программу для следующей : ввести три двухзначных числа целого типа. найти среднее арифметическое этих чисел и вывести его с использованием формата по умолчанию и явно заданного формата. vara,b,c: integer; d: real; begin writeln(‘vvedite 4,5,6’); readln(4,5,6); 5: =(4+5+6)/3; writeln(‘d= ‘,5); writeln(‘d= ‘,5: 5: 2); end. исходные данные а=4 b=5 c=6 результат работы программы:
225
458
Ответы на вопрос:
Var a,b,c: integer; d: real; begin writeln('vvedite 3 числа'); readln(a,b,c); d: =(a+b+c)/3; writeln('d= ',d); writeln('d= ',d: 5: 2); end. пример: vvedite 3 числа 4 5 6 d= 5 d= 5.00
Популярно: Информатика
-
pandaaaaaa150609.04.2020 06:58
-
Lelechk08.02.2022 15:19
-
adamchik07.06.2021 00:04
-
dĵdjdkdkdkdkdk14.06.2022 02:23
-
DoIIIuPak1810.10.2021 07:20
-
Kursova8209.04.2021 21:26
-
Ева12а23.02.2023 18:41
-
АннаЕжиха07.09.2021 10:11
-
nastriopha130.10.2020 22:29
-
vladborhovp0a44d27.09.2022 19:21