Напишите программу, которая запрашивает четыре целых числа и выдает на экран: 1) сумму чисел; 2) сумму квадратов чисел; 3) среднее арифметическое чисел; 4) сумму парных произведений.

Question

20 августа, 21:37

+1

Ответы (1)

Знаешь ответ на этот вопрос?

Эмир Мещеряков · Answer 1

Program pr1;

Uses crt;

Var a, b, c, d, s:integer;

Begin

writeln ('введите 4 числа');

read (a, b, c, d);

s:=0;

s:=a+b+c+d;

write (s);

end.