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

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

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

Ответ:

drobdrod

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

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

kisskaaa123

09.10.2020 10:30

Найдите значение логического выражения (х 14)& (х 5) для х=3...

schooll13

09.10.2020 10:30

Какое количество цифр используется в двоичном коде? !...

psheni4nayaLiza

09.10.2020 10:30

В90-е годы стремительно взлетела популярность видеоигр. кто помнит, когда был релиз нашумевшей стрелялки «doom ii»?...

Mratom1111

08.12.2020 02:03

Построить таблицу истинности f=a v b...

Hdjshddh

27.12.2022 11:55

Информационный объем текста, подготовленного с компьютера, равен 3,5кб. сколько символов содержит этот текст?...

Хорошистикун

12.11.2022 10:41

Алгоритмічні структури бувають:варіанти відповідейA) наслідування, повторення, згортання,Б) слідування, згортання, циклічна,В) слідування, повторення, розгалуження,Г)...

0000101038473626261

03.08.2021 19:22

Вкажіть назву органели,яка має двомембранну будову: а)лізосома,б) клітинний центр,в)мітохондрія,г)рибосома....

Sonechka9youtobe

03.08.2021 19:22

Вкажіть масу розчину який отримали при розчиненні 200 г солі у воді об ємом 250 мл...

vita12062006

03.08.2021 19:22

Какоепроверочное слова сторожиха проверить о и а...

Flvme

15.07.2022 08:19

Напишите сочинение про андрия, повесть тарас бульба по плану: 1.вступление. 2.основная часть. 1)внешность, 2)черты характера, 3)учеба в бурсе, 4)жизнь в запорожской...

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

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