Anahuginn
4 год назад
Пожалуйста посчитайте программа Pascal abc
ОТВЕТЫ
Cenka
Oct 24, 2020
Program n1;
var x: integer;
begin
readln(x);
if x<0 then writeln('отрицательное') else if x>0 then writeln('положительное');
if x=35 then x:=71 else if x<35 then x:=x-23;
write(x);
end.
var x: integer;
begin
readln(x);
if x<0 then writeln('отрицательное') else if x>0 then writeln('положительное');
if x=35 then x:=71 else if x<35 then x:=x-23;
write(x);
end.
566
Смежные вопросы:
