Предмет: Информатика, автор: kobelev280505

Дано целое число. Если оно является положительным, то прибавить к нему 1; если отрицательным, то вычесть из него 3; если нулевым, то заменить его на 17. Вывести полученное число.

Ответы

Автор ответа: tekilla856
2

Ответ:

program If3;

var

 N : Integer;

begin

 Write('Введите целое число: ');

 Readln(N);

 if N>0 then N:=n+1;

 if N<0 then N:=n-3;

 if N=0 then N:=17;

 writeln(N);

end.

Объяснение:

Решение Pascal

Похожие вопросы
Предмет: Русский язык, автор: КОТЭЙКА2001
 В ЭТОМ ТЕКСТЕ ЕСТЬ НЕСКЛОНЯЕМЫЕ СУЩЕСТВИТЕЛЬНЫЕ???    История флага Точная дата появления шведского флага неизвестна, однако наиболее ранние изображения жёлтого креста на синем фоне датируются XVI веком. В соответствии с королевским указом от 1569 года жёлтый крест должен был всегда изображаться на шведских боевых штандартах и знамёнах, поскольку герб Швеции представлял собой лазоревый (синий) щит с золотым прямым крестом. Только к 20-м годам XVII века относятся надёжные свидетельства того, что синий треугольный флаг с жёлтым крестом был на шведских кораблях. Сейчас треугольный вымпел используется только на судах королевской семьи и на военных судах. На вымпеле королевской семьи, кроме того, в центре креста изображён Малый или Большой герб Швеции.С 1916 года день 6 июня отмечается как День Шведского Флага. В 1983 году этот день был также объявлен Национальным Днем Швеции. Этот день был выбран по двум причинам: 6 июня 1523 года Густав Васа был избран королём Швеции, и это положило начало Швеции как независимого государства, а в тот же день в 1809 году Швеция приняла новую конституцию, которая устанавливала права граждан и наделяла их значительной свободой.     
Предмет: Математика, автор: МилаяДевочка10987