Cenis
7 год назад
ПОМОГИТЕ С ИНФОРМАТИКОЙ (ПАСКАЛЬ)
Написать на языке Т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
Результат работы программы:_______
ОТВЕТЫ
Ксенофонтович
Jul 14, 2019
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
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
173
Смежные вопросы:
