Предмет: Информатика,
автор: AlinaVershinina
Для четырех произвольных чисел, введенных с клавиатуры, выведите на экран соответствующие результаты.
Если первое число четно, то выведите сумму этих четырех чисел.
Если второе и третье числа положительны,то выведите их среднее арифметическое.
Если выполняются одновременно два перечисленных выше условия, то выведите все четыре числа без изменения.
Иначе, выведите числа, противоположные исходным.
Составьте соответствующие отладочные примеры и проверьте работу каждой программы.
Ответы
Автор ответа:
0
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.
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.
Автор ответа:
0
Спасибо=))
Интересные вопросы
Предмет: Математика,
автор: nazokatgulturaeva
Предмет: Английский язык,
автор: kolesnikarina007
Предмет: Математика,
автор: sapaekaterina25
Предмет: Математика,
автор: Масел
Предмет: Химия,
автор: SonyaHom