Регистрация
Rodofatos
13.11.2022 15:24
Информатика
Есть ответ 👍

)составить программу умножения 3 чисел программы паскаль) не могу доолго ждать))

221
347
Посмотреть ответы 2

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

123456789785
123456789785
4,4(68 оценок)
Program n; var a,b,c,d: real; begin writeln(a,b,c); readln(a,b,c); d: =a*b*c; writeln('otvet=',d) end.
ksuynya2007
ksuynya2007
4,4(56 оценок)
Uses crt ;   var n,m: integer;   rost,a,b: real;   beginwrite('введите количество учинеков 9а класса: '); readln(n); write('введите количество учинеков 9б класса: '); readln(m); writeln('вводите рост каждого из учинеков 9а по очереди'); for i: integer : =1 to n do beginwrite(i,': ');   read(rost); a: =a+rost; end; a: =a/n; // средний рост 9аwriteln('вводите рост каждого из учинеков 9б по очереди'); for i: integer : =1 to m do beginwrite(i,': ');   read(rost); b: =b+rost; end; b: =b/n; // средний рост 9бif a > b then write('средний рост учеников 9а больше.') else if a < b then write('средний рост учеников 9б больше.') else write('средний рост учеников 9а равен среднему росту учеников 9б.'); end.

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