lesson pascal

Задача 10 Урок 9

Есть программа:

Задача 9 Урок 9

Есть программа, где стоит проверка на ввод пользователем числа 1 или числа 5:
var s:integer;
begin
writeln('Vvedite chislo 1 ili 5');
readln(s);
if (s = 1) then
writeln('soobchenie 1');
if (s = 5) then
writeln('soobchenie 2');

Задача 8 Урок 9

Коля набрал k баллов, Миша n баллов, а Петя d баллов в ходе соревнований. Если:
сумма баллов Коли и Миши больше 20
или произведение баллов Пети и Миши меньше 55
--то тогда вывести в консоль сообщение о том, что ничья, в противном случае вывести сообщение, что победил Коля.

Задача 7 Урок 9

Пользователь вводит четыре числа, найдите из них максимальное.

Задача 6 Урок 9

Пользователь вводит три числа, найдите из них максимальное.
Решите тремя способами:

С использованием логической операции and.
С вложенными блоками (без and, все опараторы if должны быть в полной форме).
Без вложенных блоков (без and) -- запомнив максимум из первых двух чисел в специальной переменной

Задача 5 Урок 9

Пользователь вводит два числа, найдите из них максимальное. (тут всё просто)

решение задачи

program Lesson95;
var A,B:integer;
begin
 writeln('vvedite chisla A,B:');
 readln(A, B);
   if (A > B) then
      writeln(' maximalnoe chislo: A')
   else
       writeln('maximalnoe chislo: B');
 readln();
end. 

Задача 4 Урок 9

Даны три целых числа: A, B, C. Проверить истинность высказывания: « Число A и число B больше 17, а C > 7». -- выведите "да", если истинно и "нет" если ложно.

решение задачи:

program lesson94;
var A,B,C:integer;
begin
     writeln('vvedite chisla A,B,C');
     readln(A, B, C);
     if (A > 17) AND (B > 17) AND (C > 7) then
        writeln('DA')
     else
         writeln('NET');
     readln();
end.

Задача 3 Урок 9

Даны три целых числа: A, B, C. Проверить истинность высказывания: «Число A находится между числами B и C» -- выведите "да", если истинно и "нет" если ложно.
ПРИМЕЧАНИЕ: эта следующая задача базируются на том, что мы уже решали (см. задачи в конце урока).

Задача 2 Урок 9

Сравните два числа, если первое больше второго,
то выведите на экран "12", а если нет, то выведите на экран "888".

решение задачи:

program Lesson92;
var a,b:integer;
begin
     writeln('vvedite chisla a and b');
     readln(a, b);
     if (a > b) then
         writeln('12')
     else
         writeln('888');
     readln();
end.

Задача 1 Урок 9

Сравните два числа, если первое больше второго, то выведите на экран "12". (здесь нужно использовать неполную форму условного оператора)

решение задачи:

program Lesson91;
var a,b:integer;
begin
    writeln('vvedite chisla a and b');
    readln(a,b);
    if (a > b) then
       writeln('12');
    readln();
end.