Регистрация
stepatimoshkov8Dimas
23.08.2021 02:21
Информатика
Есть ответ 👍

Как нарисовать имя руслан в скретче

182
365
Посмотреть ответы 1

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

lexa123assasin
lexa123assasin
4,5(100 оценок)

1.

program Zadacha;

var M: integer;

begin

 readln(M);

 if(M>=0) then M:=M+3

 else M:=M-3;

 writeln(M)

end.

2. program Zadacha2;

var a:integer;

begin

 read(a);

 if (a<0) then writeln('A - отрицательное')

           else('А - неотрицательное');

end.

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