ПАСКАЛЬЗдравствуйте, написала я программку по заданию -Ввести три числа, отыскать

ПАСКАЛЬ

Здрасти, написала я программу по заданию

-Ввести три числа, найти их сумму, творение и среднее арифметическое

Пример
Введите три числа
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.

Задать свой вопрос
Анжелика Невельсон
У вас очень странноватый вывод.
Сашок Артомошин
есть такое, я просто 2 раза значение выписывала, полное и короткое)
2 ответа

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.


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(a,'+',b,'+',c,'=',sum);

writeln(a,'*',b,'*',c,'=',p);

writeln('(',a,'+',b,'+',c,')/',3,'=',sr);  

end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт