Задача 2. Ввести три числа, найти их сумму, разность и среднее арифметическое.В паскаль ABC.
Задача 2. Ввести три числа, найти их сумму, разность и среднее арифметическое.В паскаль ABC.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Program task2;
Var
a, b, c, sum, diff, average: Real;
Begin
Write('Enter the first number: ');
Readln(a);
Write('Enter the second number: ');
Readln(b);
Write('Enter the third number: ');
Readln(c);
sum := a + b + c;
diff := a - b - c;
average := sum / 3;
Writeln('Sum: ', sum:0:2);
Writeln('Difference: ', diff:0:2);
Writeln('Average: ', average:0:2);
End.