1. Информатика
  2. Данное целое число, если оно

Данное целое число, если оно положительное прибавьте к нему 3,если отрицательное отнемите 4 ,если равно 0 то заменить на 10 (блок схему)

moonlightbiebs13 moonlightbiebs13    1   15.09.2020 23:15    0

Ответы
Guletta Guletta  16.09.2020 01:01

var a:integer;

begin

read (a);

if a>0 then

a:=a+1;

if a<0 then

a:=a-2;

if a=0 then

a:=10;

write(a);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
DaNike1502 DaNike1502  13.02.2021 17:45
Написать программу на java​...
hamov1408p06m04 hamov1408p06m04  13.02.2021 17:51
Вычислить сумму S= 1/15+1/16+1/17+...1/n паскаль программа...
ulylsh ulylsh  13.02.2021 17:52
написать код по CodeBlocks: 1) Определить содержит ли заданный массив группы элементов, расположенные в порядке возрастания их значений. 2) Из массива X (N) удалить три самых...
илья33567б0 илья33567б0  13.02.2021 18:01
Мне нужно приготовить с и css Как на рисунке...
almagul82 almagul82  13.02.2021 18:07
Мария, Дарья и Наташа-занимаются в различных кружках: танцы, художественная школа, шахматы какой кружок ходиткаждая из школьниц, если известно, что Мария шахматами неувлекается,...
Павел9641 Павел9641  13.02.2021 18:09
Задание 1 Вычислите значения выражений на языке Python:31) а b – 6,4 (b+8) + = Ь42) d=a*b — 2abi (a + b)3а - 2ab+b?2a(3а - b)4) tx - 4xy(x+y?)5) h=ju + 1,7* (2 + 3)3) 4 =ретения​...
Crazy2daisy Crazy2daisy  13.02.2021 18:10
Дана квадратная матрица порядка n. Получить матрицу А^2 +A+Е, где Е-единичная матрица. Нужно решить массивами С++...
antiangel18 antiangel18  13.02.2021 18:26
Что выведет программа ? ответ записан в одну строку без разделителей и пробелов for i in range (5): print(i) Дайте правильный ответ.​...
Аврoра Аврoра  13.02.2021 18:31
ответьте на вопросы: 1)Как вы думаете, как можно заранее предотвратить угрозы информационной безопасности?2)Как обеспечивается информационная безопасность на ваших компьютерах?​...
lightningwhite lightningwhite  13.02.2021 18:31
Хотелось бы как можно быстрее...

Популярные вопросы