Вопрос по информатике:
Заданы три числа a, b, c.
Если а < 0, то вычислить и напечатать p, равное квадрату
максимального из трех чисел, в противном случае напечатать
сообщение
- 26.08.2018 03:21
- Информатика
- remove_red_eye 13661
- thumb_up 11
Ответы и объяснения 1
Var a,b,c,p,max:real;
begin
writeln('Введите 3 числа');
readln(a,b,c);
if (a>b) and (a>c) then max:=a;
if (b>a) and (b>c) then max:=b;
if (c>a) and (c>b) then max:=c;
if a<0 then
begin
p:=sqr(max);
writeln('p= ', p:6:3);
end
else
writeln('a положительно ');
end.
- 27.08.2018 10:13
- thumb_up 27
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.