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

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.

Comments

Задание 3
Program ada4a2;
Var staj, let:Integer;
Begin
Write('Введите ваш возраст: ');
Read(let);
Write('Введите ваш стаж работы: ');
Read(staj);
If (let<42) and (staj>5) Then WriteLn('Вы приняты')
Else WriteLn('Вы нам не подходите, извините');
ReadLn;
End.

---

Program zadanie1;
Var m,n,p,s:Integer;
Begin
WriteLn('введите 2 числа: ');
Read(m,n);
p:=m*n;
s:=m+n;
WriteLn('Произведение: ',p,' Сумма: ',s);
If p>s Then WriteLn('Произведение больше суммы на : ',p-s)
Else WriteLn('Сумма больше произведения на : ',s-p);
ReadLn;
end.

---

Enzoqzx, с тебя лучший ответ :)

---

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

---

Я так понял у тебя сейчас идут занятия по циклу If Then else

---

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

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