Предмет: Информатика,
автор: deemonspb
Дано целое число, которое вводится с клавиатуры. Если оно является
положительным то вычесть из него 1, отрицательным прибавить к нему 5, равно нулю
заменить на 121. Вывести полученное число. Написать полученную программу в Pascal
Ответы
Автор ответа:
1
var
a:integer;
begin
read(a);
if a = 0 then
write(121);
if a = 0 then
exit
else
if a > 0 then
a:= a + 1
else a:= a + 5;
writeln(a);
end.
Похожие вопросы
Предмет: Другие предметы,
автор: ksushanaumova19
Предмет: Английский язык,
автор: MashaLans
Предмет: Английский язык,
автор: kle1
Предмет: Алгебра,
автор: shab2