Question

Помогите, пожалуйста! Нужно в поограмме pascal abc решить задание if5, if6, if7. До завтра нужно на контрольную, я совсем не понимаю, как это решать. Помогите, пожалуйста

Answer 1

if5                                                      

program raf105;

var a,b,c,po,ot: integer;

begin

write('Введите 3 числа: ');

readln(a,b,c);

if a > 0

 then po+= 1;

if a < 0

 then ot+= 1;

if b > 0

 then po+= 1;

if b < 0

 then ot+= 1;

if c > 0

 then po+= 1;

if c < 0

 then ot+= 1;

writeln('Количество положительных чисел: ',po);

writeln('Количество отрицательных чисел: ',ot);

end.

if6                                                      

program raf105;

var a,b: real;

begin

write('Введите 2 числа: ');

readln(a,b);

if a > b

 then writeln(a)

 else writeln(b);

end.

if7                                                      

program raf105;

var a,b: real;

begin

write('Введите 2 числа: ');

readln(a,b);

if a < b

 then writeln('1')

 else writeln('2');

end.

Язык PascalABC 3.4.2