Пожаловаться
- 11.04.2015 06:12
- Информатика
- remove_red_eye 4723
- thumb_up 23
Ответы и объяснения 1
//Pascal
var
x, y: real;
begin
write('x = '); readln(x);
if x > 100 then
y := 5 * x + 6
else
if ((x >= 10) and (x <= 100)) then
y := 200 * x
else
if x < 10 then
y := x / 2;
writeln('y = ', y);
end.
var
x, y: real;
begin
write('x = '); readln(x);
if x > 100 then
y := 5 * x + 6
else
if ((x >= 10) and (x <= 100)) then
y := 200 * x
else
if x < 10 then
y := x / 2;
writeln('y = ', y);
end.
Пожаловаться
- 12.04.2015 13:47
- thumb_up 34
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы