Домашнее задание (к 17 февраля)

Задача 1. Из двух чисел найти максимальное.

program maximym;

var A, B, max: integer;

begin

     writeln (‘введите любые два числа’);

     readln (A,B);

     if A>B  then max:=A

                else  max:=B;

     writeln (‘ максимальное число ‘, max);

     readln

end.

Задача 2: Ввести число. Если оно неотрицательно, вычесть из него 50, в противном случае прибавить к нему 100.

Задача 3: Ввести 2 числа. Если их произведение отрицательно, умножить его на 2 и вывести на экран, в противном случае увеличить его в 3 раза и вывести на экран.

Задание:

1) Проверить работу программы (задача 1).

2) Записать программу для задач 2 и 3, используя составленные конструкции оператора ветвления и проверить в среде TP.

Файлы программ отправить через «Обратную связь».