Составьте программку нахождения У

Составьте программку нахождения У

Задать свой вопрос
Витя Жилинков
нет
Игорь Джоев
что нет?
Ленька Ендычев
нет
Elizaveta
ответить нормально не можешь?
Хадырнабиев Алексей
нет
Сениченко Евген
ну понятно
Виктор
нет
1 ответ
Var x, y: real;
begin
write('Введите значение х: ');
readln(x);
if x gt;= 0 then y := 4 * x + 10
else y := 8 + x;
writeln('y = ', y);
end.
Рашников Вячеслав
кросс, а можешь и мне помочь http://znanija.com/task/10607768
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт