Question

Информатика 8 класс Помогите подалуйста

Answer 1

1)var x,y:integer;

begin

readln(x);

y:=x/2;

writeln(y);

end.

2)

var x,y:integer;

begin

readln(x);

if x>=2 then

y:=x;

else

y:=-1*x;

writeln(y);

end.

3)

var j,i:integer;

begin

for i:=2 to 6 do

begin

j:=(i+1)*5;

i:=i+1;

end;

writeln(j);

end.

 

Проверь орфографию и добавь стандартное начало