Предмет: Информатика, автор: Sophia2121

Сосчитать для переменных X, Y и Z сумму, произведение, сумму квадратов и среднее арифметическое


uplmtq: Какой ЯП?
Sophia2121: Паскаль
uplmtq: Стилистика кода должна быть устаревшей или новой?
Sophia2121: Ну,вида
program
var:
begin:
readln:
writlen
end.

Ответы

Автор ответа: uplmtq
3

Ответ:

program znanija;

begin

 var x := readinteger();

 var y := readinteger();

 var z := readinteger();

 writeln('Сумма = ', x + y + z);

 writeln('Произведение = ', x * y * z);

 writeln('Сумма квадратов = ', sqr(x) + sqr(y) + sqr(z));

 writeln('Среднее арифметическое = ', (x + y + z) / 3);

end.

Объяснение:

Функция sqr() возводит число в квадрат.

Среднее арифметическое = сумма чисел ÷ количество чисел

program znanija;  // Название программы

begin  // Начало программы

 var x := readinteger();  // Объявление переменной x и считывание целочисленного числа с клавиатуры

 var y := readinteger();  // Объявление переменной y и считывание целочисленного числа с клавиатуры

 var z := readinteger();  // Объявление переменной z и считывание целочисленного числа с клавиатуры

 writeln('Сумма = ', x + y + z);  // Вывод суммы

 writeln('Произведение = ', x * y * z);  // Вывод произведения

 writeln('Сумма квадратов = ', sqr(x) + sqr(y) + sqr(z));  // Вывод суммы квадратов

 writeln('Среднее арифметическое = ', (x + y + z) / 3);  // Вывод среднего арифметического

end. // Конец программы


Sophia2121: Большое спасибо!!
uplmtq: Тут использовал новою стилистику, надеюсь, что подойдет)
Похожие вопросы