Регистрация
nky43939nky
12.11.2020 11:26
Информатика
Есть ответ 👍

(решать в Pascal ABC):
Найти, сумму, произведение и среднее арифметическое 3 целых чисел: a=10, b=25, c=35.​

134
145
Посмотреть ответы 2

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

mariana20021
mariana20021
4,7(44 оценок)

program *название программы*;

var a,b,c,S,P:inreger; Sr:real;

begin

a:=10;

b:=25;

c:=35;

S:=a+b+c;

P:=a*b*c;

Sr:=S/3;

Writeln('Сумма=',S,', произведение=',P,', среднее арифметическое=',Sr);

end.

kashalotic20
kashalotic20
4,4(41 оценок)

a: =7; b: =3; c: =6;

if (a< =b) or (a> c) then x : = 4 * a + b

else x: = a - b;

делаем подстановку и заменяем слова на (если так понятнее)

если if (7< =3) или (7> 6) то x : = 4 * 7 + 3

иначе x: = 7 - 3;

разбираемся с неравенствами

если if (ложь) или (истина) то x : = 4 * 7 + 3

иначе x: = 7 - 3;

значением выражения (ложь) или (истина) будет истина,

поэтому смотрим ветку то:

x : = 4 * 7 + 3

вычисляем 4 × 7 + 3 = 28 +3 = 31

х получит значение 31.

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