Для четырех произвольных чисел, введенных с клавиатуры, - вопрос №2066549 от loloshka566 05.11.2020 08:48

Question

Информатика: Для четырех произвольных чисел, введенных с клавиатуры, выведите на экран соответствующие результаты. если первое число четно, то выведите сумму этих четырех чисел. если второе и третье числа положительны,то выведите их среднее арифметическое. если выполняются одновременно два перечисленных выше условия, то выведите все четыре числа без изменения. иначе, выведите числа, противоположные исходным. составьте соответствующие отладочные примеры и проверьте работу каждой программы.

loloshka566 · Answer

Var  a, b, c, d : integer;begin  read (a, b, c, d);  if a mod 2 = 0 then    writeln (a + b + c + d);  if (b 0) and (c 0) then    writeln ((a + b + c + d) / 4);  if (a mod 2 = 0) and (b 0) and (c 0) then    writeln (a, , b, , c, , d)  else     writeln (-a, , -b, , -c, , -d);end....