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

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


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


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


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


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


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


Условие:

if (rostlt;178) and (rostgt;168) then write (Приняты!) else write ( Не приняты!);

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


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


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

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

Задать свой вопрос
1 ответ
Задание 2
Program ada4a2;
Var rost:Integer;
Begin
  WriteLn('Введите ваш возраст: ');
  Read(rost);
  If (rostlt;178) and (rostgt;168) Then Write('Приняты')
                               Else Write('Не приняты');
ReadLn;
End.
Владислав Громоздин
Задание 3Program 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.
Mishanja Vohrushenkov
Enzoqzx, с тебя лучший ответ :)
Витек Аширятов
program zadanie3;Var a:Integer;Begin WriteLn(' : '); Read(a); If (a<=999) and (a>=100) Then writeLn('
Дарья Гарбаун
Я так понял у тебя на данный момент идут занятия по циклу If Then else
Диман Сакуненко
program zadanie3;Var a:Integer;Begin WriteLn('Введите число: '); Read(a); If (a<=999) and (a>=100) Then writeLn('Число является трехзначным') Else WriteLn('Число не трехзначное');ReadLn;End.Тот комментарий который получился не с русскими знаками не помечай за мусор. Российские буковкы приходится каждый раз переправлять. (
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт