Question

помагите срочно 2 задания дам сто балов​

Answer 1

Ответ:

1). Var a:integer;

Begin

a:=1;

while a<=10 do

 begin

   write(a, ' ');

   a:=a+1;

 end;

End.

2). Var i:integer;

Begin

For i := -5 to 5 do

 begin

 if abs(i) mod 2 = 1 then write(i, ' ');  //проверка на нечетность

 end;

End.

Объяснение:

abs - взятие модуля