Ввести с клавиатуры 4 числа, если сумма 1-ого и 2-ого чисел больше 20, то уменьшить эту сумму на 10. иначе увеличить на 10, если 2 число не отрицательное (> или = 0), то уменьшить все числа на единицу. иначе вычислить среднее арифметическое всех чисел (паскаль)

Ответы (1)

Яворина 16.08.2025 0
Ответ в комментарии, для лучшей читаемости кода.program chicla; var a, b, c, d, f, sum:integer; sr:real; begin Writeln ('Ââåäèòå ïåðâîå : èñëî') ; readln (a) ; Writeln ('Ââåäèòå âòîðîå : èñëî') ; readln (b) ; Writeln ('Ââåäèòå òðåòüå : èñëî') ; readln (c) ; Writeln ('Ââåäèòå : åòâåðòîå : èñëî') ; readln (d) ; f:=a+b; if f>20 then begin f:=f-10; writeln (f) ; end else begin f:=f+10; writeln (f) end; if b>=0 then begin a:=a-1; b:=b-1; c:=c-1; d:=d-1; writeln ('1 : èñëî ïîñëå óìåíüøåíèÿ íà åäèíèöó = ', a) ; writeln ('2 : èñëî ïîñëå óìåíüøåíèÿ íà åäèíèöó = ', b) ; writeln ('3 : èñëî ïîñëå óìåíüøåíèÿ íà åäèíèöó = ', c) ; writeln ('4 : èñëî ïîñëå óìåíüøåíèÿ íà åäèíèöó = ', d) ; end else begin sr: = (a+b+c+d) / 4; writeln ('Ñðåäíåå àðèôìåòè:åñêîå = ', sr) ; end; end.

Знаете правильный ответ?

Думаешь ответы не верны?

Найди верный ответ на вопрос по предмету Информатика, если вы не получили ответа или никто не дал верного ответа, то рекомендуется воспользоваться поиском и попытаться найти ответ на свой вопрос среди похожих запросов.

Воспользуйтесь поиском

Новые вопросы по предмету Информатика:

ПРЕДМЕТЫ