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

Answer 2

Конечно, я могу помочь вам решить задачи if5, if6 и if7 на языке Pascal ABC. Давайте начнем с каждой задачи по очереди. Пожалуйста, предоставьте условия каждой задачи, и я помогу вам написать соответствующий код.

Задача if5: Условие задачи не указано. Пожалуйста, предоставьте условие, и я помогу вам решить задачу.

Задача if6: Условие задачи не указано. Пожалуйста, предоставьте условие, и я помогу вам решить задачу.

Задача if7: Условие задачи не указано. Пожалуйста, предоставьте условие, и я помогу вам решить задачу.

Предоставьте условия каждой задачи, и я буду готов помочь вам решить их.