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

0 голосов
41 просмотров

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


image

Информатика (19 баллов) | 41 просмотров
Дан 1 ответ
0 голосов

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.

 

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

(96 баллов)