Question

Задача 1. Составить программу, которая запрашивает у пользователя
два числа (m, n), находит их сумму (S) и произведение (P). Сравнивает значения суммы
и произведения и выводит сообщение какое больше (сумма или произведение) и на
сколько.

Иногда в задачах требуется выполнение не одного, а нескольких условий или
одного из нескольких. Тогда простые условия образуют составные при помощи логических
операций and или or.

Формат записи
составного условия:

(условие 1) and (условие
2) and…and (условие
N)

(условие 1) or (условие
2) or…or (условие N)

Задача 2. В школу
танцев принимаются учащиеся не выше 178 см и не ниже 168 см. Написать программу,
которая определяет, будете ли Вы приняты в школу танцев.

Условие:

if (rost<178) and (rost>168) then write (‘Приняты!‘) else write (‘ Не приняты!‘);

Задача 3. Составить
программу, которая определяет, является ли данное число трехзначным и выводит
сообщение об этом (двузначным является число от 10 до 99).

Задача 4. На работу в компанию принимаются люди не старше 42 лет и
имеющие стаж работы не менее 5 лет. Написать программу, которая определяет,
будет кандидат принят на работу или нет.

Задача 5. Дано некоторое число b. Составить программу, которая удваивает данное число если оно,
принадлежит интервалу [m;n], ыв противном случае
заменяет его на противоположное.

PS: pascal(не турбо),всем буду благодарен!

Answer 1

Задание 2
Program ada4a2;
Var rost:Integer;
Begin
  WriteLn('Введите ваш возраст: ');
  Read(rost);
  If (rost<178) and (rost>168) Then Write('Приняты')
                               Else Write('Не приняты');
ReadLn;
End.

Answer 2

Замётано)

Answer 3

program zadanie3;
Var a:Integer;
Begin
WriteLn('Ââåäèòå ÷èñëî: ');
Read(a);
If (a<=999) and (a>=100) Then writeLn('×èñëî ÿâëÿåòñÿ òðåõçíà÷íûì')
Else WriteLn('×èñëî íå òðåõçíà÷íîå');
ReadLn;
End.

Answer 4

program zadanie3;
Var a:Integer;
Begin
WriteLn('Введите число: ');
Read(a);
If (a<=999) and (a>=100) Then writeLn('Число является трехзначным')
Else WriteLn('Число не трехзначное');
ReadLn;
End.

Тот комментарий который получился не с русскими буквами не помечай за спам. Русские буквы приходится каждый раз переправлять. (