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

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

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

Ответ:

dhhdhhd55

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 оценок)

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

ksenia7567012

13.05.2020 16:44

Дана матрица р(8,9), н(9,7) вещественных чисел. инвертировать все четные строки матрицы. для вычислений использовать процедуру....

Nanami334

25.05.2022 04:12

Антивирусная программа, которая удаляет вирусы из файлов....

Dasha12541

16.05.2021 21:16

Поиск максимального элемента массива...

Mariya197819

18.12.2022 12:23

Декодируйте полученное сообщение ЕИУЫЛРГ...

then3rvnyy

02.06.2023 04:46

Укажите наибольшее целое значение А, при котором выражение (7x + 3y 56) \/ ((x ≤ A) /\ (y A)) ложно для любых целых положительных значений x и y...

1234567891011121314з

27.02.2023 16:36

1/4 Мбайта =Сколько Кбайт...

Yto4kaya

31.01.2022 22:17

Сколько символов можно разместить в 30 байтах памяти, при условии что задан алфавит мощностью 256...

loptf

31.03.2022 03:22

Программа которая подсчитывает количество чисел начинающейся с цифры 2 в диапазоне 10 30...

влад2319

24.02.2020 20:36

Напишите программу, которая определяет по типу файла, является ли он web-документом. Web-документ имеет тип .htm или .htmlПрограмма должна выдавать одно из сообщений: Да,...

kuzmov55

08.12.2021 02:14

Какие из перечисленных моделей являются материальными а какие информационными?...

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

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