Предмет: Информатика, автор: bunyyyyyy112

Напишите программу на языка Pascal.

Приложения:

Ответы

Автор ответа: yasha20053
1

Ответ:

program Hello;

var x, y: Real;

begin

writeln('Введите число x');

read(x);

if x<1 then begin

y:=5*x+2;

end

else begin

y:=sin(x);

   end;

   writeln(y);

end.

Объяснение:

Похожие вопросы
Предмет: Русский язык, автор: milapodvorok7
Постройте предложения так, чтобы речь шла не об одном,а о многих лицах или предметах явлениях.
1. Архитектор решил, бухгалтер просчитал, директор заключил договор, районный инспектор его проверил, инженер распорядился, диспетчер отдал команду. и в тот же день пригнали бульдозер и трактор и снесли старую баню у нас на даче.


2. В новый ресторан срочно нужны менеджер, инженер-технолог, повар, кондитер, официант,бармен, а также слесарь-сантехник и сторож.

3. Бьётся о борт волна. Погружён последний контейнер с продуктами. Скоро будет поднят якорь. Отчалит береговой катер. Мичман отдаст капитану рапорт о готовности к отплытию. Штурман встанет к рулевому колесу, и крейсер выйдет в открытое море. Его ждут океанский шторм,таинственный остров и неведомая земля.

4. сегодня решающая встреча. Любовь к футболу объединила самых разных людей, и на трибунах директор школы, заводской инженер, конструктор с того же завода, диспетчер и кондуктор из трамвайного парка, мастер по холодильникам, врач и фельдшер, комбайнер из пригородной деревни. На каждом из болельщиков свитер с эмблемой любимой команды ,на шее -шарф её цветов. Тренер занял своё место у скамейки запасных. Прожектор осветил футбольное поле. Футболисты вышли на поле. прозвучал свисток судьи. матч начался.
Предмет: Английский язык, автор: shugyla61