Регистрация
Звёздочка1790
10.06.2022 06:07
Информатика
Есть ответ 👍

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

297
446
Посмотреть ответы 2

Ответы на вопрос:

Dirol3434
Dirol3434
4,7(9 оценок)
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
ayveliss
ayveliss
4,4(12 оценок)
Программы-вирусы относятся к классу  вредоносного  по, т.к. они вредят компьютеру, файлам, тормозят скорость, расходуют трафик и приводят к потерям данных.

Популярно: Информатика