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

Нужно составить программу на языке ПаскальABC

Ответ:

xachik1998

15.05.2020 21:59

var x,y:integer;

begin

readln(x);

if x > 0 then

y := 2*x

else

y := x - 1;

writeln(y)

end.

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

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

ogannisyan2006

18.03.2022 00:36

Паскаль. дана площадь круга и площадь квадрата. поместится ли круг в квадрат? квадрат в круг?...

Simuran999

22.10.2020 01:30

Составить программу , вычисляющую сумму квадратов n чётных натуральных чисел ( сейчас циклические алгоритмы, нужна и блок-схема)...

vlad31106

22.10.2020 01:30

Сравните менеджера загрузки и ftp -клиенты. в чем состоит их различие...

vershynska

22.10.2020 01:30

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

катя19052

22.10.2020 01:30

Дана длина ребра куба . найдите sграни и s полной поверхности и обьем этого куба . s1грани =а^2 s2поверхности =6а v=а в кубе...

Sonyamay

22.10.2020 01:30

Решить чему равны значения переменных r, a, d? a: =5; b: =20; c: =-7; d: =2.5; r : = a+(4*b+c)*d; a: = a+4; d: =a*7; 2. в пяти тестовых опросах мальчик получил оценки. составьте...

PavelSahka

04.04.2023 07:15

Склавиатуры ввести 10 целых чисел и вывести в строчку все числа большие 5....

alanuit

22.09.2021 21:55

Записать в тетради алгоритм обмен для переменных m=10 и n=20 ! кто шарит в информатике ? 8 класс!...

agogolewa2016

14.04.2020 12:45

Информатика егэ 12ый номер, объясните как решается, ответ 21 если что....

Nottyt

24.03.2021 01:30

Без повторений С заданного массива целых чисел нужно удалить все дублирования элементов. То есть из нескольких одинаковых элементов в массиве остается только элемент с наименьшим...

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

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