- 14.05.2015 20:36
- Информатика
- remove_red_eye 13354
- thumb_up 20
Ответы и объяснения 2
Var x,y:real;
begin
Write('Введите значение x');
Read(x);
IF (x<1) THEN
y:=sqr(x)else
y:=5*x;
Write(y);
End.
- 15.05.2015 22:19
- thumb_up 15
Program Z1;
Var x,y:real;
begin
Write('Введите значение x = ');
Readln(x);
if x>=1 then y:=5*x else y:=sqr(x);
Write('y=',y);
End.
Пример:
Введите значение x = 3
y=15
- 17.05.2015 00:11
- thumb_up 33
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.