Регистрация
KlodMone1
03.09.2020 23:50
Информатика
Есть ответ 👍

балов
С клавиатуры вводится число. Увеличить в три раза, если оно больше нуля. Уменьшить на 4, если оно меньше нуля. pascal abc

275
470
Посмотреть ответы 2

Ответы на вопрос:

kolikova05
kolikova05
4,4(39 оценок)

var a:integer;

begin

read(a);

if a>=0 then a:=a*3

else a:=a-4;

write(a);

Объяснение:

33708
33708
4,6(52 оценок)
For k: =1 to n do writeln (x[n+1-k]);

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