ПАСКАЛЬЗдравствуйте, написала я программку по заданию -Ввести три числа, отыскать
ПАСКАЛЬ
Здрасти, написала я программу по заданию
-Ввести три числа, найти их сумму, творение и среднее арифметическое
Пример
Введите три числа
4 5 7
4+5+7=16
457=140
(4+5+7)3=5.333333
------------------
получилось вот что, выдает ошибку, в чём неувязка??? СОС
Program circle_8;
var a,b,c,sum,p,sr: real;
Begin
writeln ('Введите a,b,c');
read (a,b,c);
sum:=a+b+c;
p:=a*b*c;
sr:=(a+b+c)/3;
writeln(sum); (a,'+',b,'+',c,'=',sum);
writeln(p);(a,'*',b,'*',c,'=',p);
writeln(sr);(a,'+',b,'+',c,'/',3,'=',sr);
end.
PROGRAM ThreeNumbers;
VAR
numberOne : DOUBLE;
numberTwo : DOUBLE;
numberThree : DOUBLE;
sum : DOUBLE;
product : DOUBLE;
average : DOUBLE;
BEGIN
WriteLn('Введите три числа:');
Write('Число 1 --gt;');
ReadLn(numberOne);
Write('Число 2 --gt;');
ReadLn(numberTwo);
Write('Число 3 --gt;');
ReadLn(numberThree);
sum := numberOne + numberTwo + numberThree;
product := numberOne * numberTwo * numberThree;
average := (numberOne + numberTwo + numberThree) / 3.0;
WriteLn('Сумма = ', sum:6:1);
WriteLn('Творенье = ', product:6:1);
WriteLn('Среднее = ', average:6:1);
END.
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Разные вопросы.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.
Разные вопросы.
Обществознание.