Составить программу на языке паскаль

31752 31752    3   15.12.2020 20:51    0

Ответы
5555262 5555262  14.01.2021 20:52

var

a: integer;

begin

writeln('Введи число a');

readln(a);

if a > =0 then

if a=0 then a:=17 else a:=a+1

else a:=a-3;

end.

Объяснение: думаю этот код подойдёт ...

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика