1. Информатика
  2. Не сложно, но . написать программу

Не сложно, но . написать программу для pascal. дано целое число, если оно является положительным, то прибавь к нему 5; в противном случае не изменять его. вывести полученное число.

kashavcevaeliz kashavcevaeliz    3   21.05.2019 08:40    0

Ответы
sob000 sob000  01.10.2020 03:02

begin

read(n);

if n>0 then n:=n+5 else n:=n;

write(n);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
yurka1973 yurka1973  31.03.2020 11:41
1. Определите корни уравнений y = ax2 + bx + c и z = a1x2 + b1x +c1. Использовать функцию. 2. Вычислите q=qw*qh/2, где qw, qh – минимальные элементы массивов W(10) и H(15). Используйте...
gg5765453232 gg5765453232  15.07.2019 18:10
Вы набираете текст, не глядя на экран. через какое-то время обнаруживаете, что была включена клавиша caps lock. ваши действия? а. наберу текст заново. в. воспользуюсь проверкой правописания....
eldos4 eldos4  15.07.2019 18:10
Вэлектронной таблице при перемещении или копировании формул абсолютные ссылки: 1) преобразуются независимо от нового положения формулы 2) преобразуются в зависимости от нового положения...
MrHezbollah MrHezbollah  15.07.2019 16:20
Linuxprovide path to readme file from package-specific information related to openssh client...
9276 9276  15.07.2019 18:10
Среди ниже записей формулой для электронной таблицы является только: 1) s3+f2*r4 2) d3+d4+d5 3) =b3*c4 4) s3=g4+b2...
Kseniaghl Kseniaghl  15.07.2019 18:10
Среди ниже записей формулой для электронной таблицы является только: 1) s3+f2*r4 2) d3+d4+d5 3) =b3*c4 4) s3=g4+b2...
chukovsema chukovsema  03.06.2019 16:24
Определить наибольшее число идущих подряд положительных элементов в массиве а нарисуйте блок схему....
slava4В slava4В  03.06.2019 16:26
Сделать блок-схему для этого кода : var a: array [1..10] of integer; i: integer; max: byte; counter: integer; begin max: =0; for i: =1 to 10 do begin a[i]: =random(15); write(a[i],...
Dyadya11 Dyadya11  03.06.2019 17:50
Запишите в традиционной форме (при записи нельзя использовать трех- и четырехэтажные дроби) : а) c2/(a5+3) б) a1*a2/(d12/d2*d3) в) f4^3*a4...
albinazagidulli albinazagidulli  03.06.2019 16:31
Как решаются такого типа , с подробным обьяснением , 30...

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