Регистрация
Daniela080722
15.02.2022 16:23
Информатика
Есть ответ 👍

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

208
311
Посмотреть ответы 2

Ответы на вопрос:

123291Duck
123291Duck
4,6(98 оценок)
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.
Dipper17
Dipper17
4,5(22 оценок)

program raf105;

var  

  v,p: real;

  i,let: integer;

begin

write('вклад: ');

readln(v);

write('процент годового дохода: ');

readln(p);

while v < 1000000 do

begin

  let: = let+1;

  v: = v+v/100*p;

end;

writeln('вклад превысит 1 млн. через ',let,' лет');

end.

pascalabc 3.4.2

Популярно: Информатика