Question

информатика пж !!!!!!

Answer 1

1.

begin

end.

2. if a<b then ... else if a>b then ...

3. Б)

4. var

a:integer;

begin

readln (a);

if a mod 2 > 0 then writeln (a*3) else writeln (2/2);

readln;

end.

Answer 2

1. Раздел меток (label)

Раздел констант (const)

Раздел типов (type)

Раздел описания перемененных (var)

Раздел процедуры функции (procedure function)

2. Условный оператор IF

Синтаксис

if(Условие) then ОП1 else ОП2;ОП следующий за условным.

3. Readln(u,r)

4.

program n1;uses crt;

var num : integer;

num2 : real;

begin

textbackground(2);

textcolor(4);

readln(num);

if (num mod 2 = 0) then num2 := num / 2

else num2 := num * 3;

writeln(num2);

end.