Войти Регистрация Спроси ai-bota

Написать программу у pascal

Написать программу у pascal

Ответ:

Kat11166

09.02.2022 17:10

var

x,y:integer;

begin

read(x);

if x<=0 then

writeln('y=', x+20)

else

writeln('y=', x*20);

end.

0,0(0 оценок)

Популярные вопросы: Информатика

ViWell

07.01.2022 16:19

Поменять местами максимальное и минимальное 3хзначное число х(pascal)типо 157=751...

gaziza4

07.01.2022 16:19

Аня пригласила свою подругу наташу в гости, но не сказала ей код от цифрового замка своего подъезда, а послала следующее сообщение: «в последовательности 4, 1, 9, 3, 6, 9 из...

akon1708

07.12.2021 22:20

Придумайте примеры отношений является элементом множества .предшествует,входит в состав...

bnhgj4p08xdt

07.12.2021 22:20

Какое новое слово составила сова? запиши что получается после каждого действия. напиши слово накарточке кролика. каие слова-актеры были у винни-пуха и пятачка?...

mlvov70

18.04.2021 21:10

Определите значение переменной b после выполнения следующего фрагмента программы где a и b см если переменная а:=-5; b:=5+7*2; b:=b/2*a...

Фара1323

07.06.2022 10:05

Вравнобедренном треугольнике какая-то сторона равна 72 см, а какая-то 36 см. выясните, чему равна боковая сторона этого равнобедренного треугольника....

ALXEN03

07.06.2022 10:05

Решите . из точки м к окружности с центром о проведены касательные маимв, а и в - точки касания, угол амв = 70градусов. найти углы треугольника овм....

Annsad12121

07.06.2022 10:05

Какие традиции есть в твоем классе?...

milashka455

07.06.2022 10:05

Участок земной коры по которому поднимается магма а)вулкан б)жерло в)кратер г)эпицентр...

SlonoMen

07.06.2022 10:05

Написать сообщение о культурном растении....

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку