Question

написать 3 программы : 1. На линейный алгоритм 2. На ветвление 3. На циклический алгоритм. Написать на языке программирования Паскаль.​

Answer 1

2)

Program g;

Var

a:integer;

begin

readln(a) ;

Begin

if a<0 then

Write(a*-1) end;

Begin

if a>0 then

Write(a*-1) end;

End.

3)

Program h;

Var

a, b:integer;

Begin

Readln(a) ;

Begin

While a<100 do

Begin

a:=a+1;

Write(a, ' ' ) end;

End;

End.