
Androbor
5 год назад
Ввести с клавиатуры три целых числа, найти их сумму, произведение и среднее арифметическое в pascal ABCПример:Введите три целых числа :5 7 85+7+8=205*7*8=280(5+7+8)/3=6,667
ОТВЕТЫ

Makar
Oct 24, 2020
Vara:real;b:real;c:real;d1:real;d2:real;d3:real;
Beginwriteln ('Введите числа');readln (a);readln (b);readln (c);d1:= a+b+c;d2:= a*b*c;d3:= (a+b+c)/3;writeln ('Сумма =',d1,',произведение =',d2,', а среднее арифметическое =',d3,'')end.
Beginwriteln ('Введите числа');readln (a);readln (b);readln (c);d1:= a+b+c;d2:= a*b*c;d3:= (a+b+c)/3;writeln ('Сумма =',d1,',произведение =',d2,', а среднее арифметическое =',d3,'')end.
983
Смежные вопросы: