Вопрос по информатике:
Даны действительные числа A,B,C,D. Если A<=B<=C<=D, то каждое число заменить наибольшим из них; если A>B>C>D, то числа оставить без изменения; в противном случае все числа заменяются их квадратами.
Паскаль,пжл!!!
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 18.11.2015 23:46
- Информатика
- remove_red_eye 9010
- thumb_up 41
Ответы и объяснения 1
begin
writeln ('Введите числа A,B,C,D');
readln(A,B,C,D);
if (A<=B) and (B<=C) and (C<=D) then begin
A:=D; B:=D; C:=D; end
else
if not ((A>B) and (B>C) and (C>D)) then begin
A:=A*A; B:=B*B; C:=C*C; D:=D*D; end;
writeln('Результат:', A:2:2,' ',B:2:2,' ',C:2:2,' ',D:2:2);
end.
- 19.11.2015 03:08
- thumb_up 41
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.