Question

Дз помогите сделать пж

Answer 1

1)

var a:real;

begin

writeln('Введите число');

readln(a);

if(a>8) then writeln('Число больше восьми') else writeln('Число меньше восьми');

end.

2)

var a:longint;

begin

writeln('Введите число');

readln(a);

if(a mod 3 = 0) then writeln('Число делится на 3') else writeln('Число не делится на 3');

end.

3)

var a:longint;

begin

writeln('Введите число');

readln(a);

if(a mod 2 = 0) then writeln('Число чётное') else writeln('Число нечётное');

end.

4)

var a,b:longint;

begin

writeln('Введите числа');

readln(a,b);

if(a>b) then writeln(b) else writeln(a);

end.

5)

var a:longint;

begin

writeln('Введите число');

readln(a);

if(a>0) then a:=a+5 else a:=a-1;

writeln(a);

end.

6)

var a,i,k:longint;

begin

k:=0;

for i:=1 to 3 do begin writeln('Введите число'); readln(a); if(a>0) then k:=k+1; end;

writeln(k,' ','положительных чисел');

end.