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

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

Показать ответ

Ответ:

Азот11

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

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

Мери7788

18.10.2022 22:54

Python зробити в зошит...

коршун4

22.09.2022 12:58

Решение задачи на языке ассемблер.Написать программу для вычисления степени числа 3 по формуле a=3n. Число а - 16-битное целое без знака, число n- 8-битное число без знака(используйте...

настя7595

07.04.2022 03:29

Сформулируйте алгоритм решения квадратного уравненияmx^2+nx+p=0и запишите его в виде блок-схемы. Рассмотрите все возможные случаи решения....

Tanya5463

17.05.2023 23:53

Рассмотри картинки Напиши в виде информации...

reaper3780p08ut7

14.08.2021 12:52

Виды сносок а MS Word a. обычные и концевыеb. обычные и простыеc. пограничные и обычныеd. обычные и перекрестные ...

soom2

03.01.2021 11:04

7. Выполни действия в двоичной системе счисления: 10110 + 1111101 x 1018. Построй таблицу истинности для логического выражения:A & B vĀ & B решить эту задачу, уже...

ангел709

28.08.2020 02:36

а то меня мать убьёт Запитання 1) Який програмний блок запускає програму? 2) Як називається програмний блок, який дозволяє рухатися воротарю (Goalie) вздовж ворİт? 3) Протягом...

gulya104

03.01.2021 06:30

Які параметри накреслення символів використані у даному реченні? а) напівжирний, підкреслення.б)підкреслений, курсивв)напівжирний,курсив,б)підкреслений.г) звичайний, підкресленний...

настячччч

25.06.2022 14:43

Поставьте имена существительные в родительном падеже: сон шов щегол день отец...

ксюsha10

13.02.2022 21:15

Написать все получения li2co3...

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

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