Вопрос по информатике:
Помогите с информатикой, нужно написать программу в Pascal, заранее Большое Спасибо!
- 04.01.2018 18:50
- Информатика
- remove_red_eye 14217
- thumb_up 8
Ответы и объяснения 1
2)
var a: real;
begin
readln(a);
if (a >= -2.4) and (a <= 5.7) then a := sqr(a)
else a := 4;
write(a);
end.
3)
var y, x: real;
begin
readln(x);
if (x < -1) then y := -1;
if (x > -1) then y := x;
if (x = -1) then y := 1;
writeln(y);
end.
- 06.01.2018 00:21
- thumb_up 17
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.