pascal

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

Изучите код:

var s, t:integer;
f, b:boolean;
begin
f := true;
b := false;

if (f=true) then
t:=1
else
t:=2;

if (b=false) then
s:=3
else
s:=4;
end.
-- блоки условий можно переписать более кратко, без использования сравнения = true или = false, с сохранением той же логики работы программы.

Подсказки:

Задача 11 Урок 9
Есть программа:

var z,s:integer;
f:boolean;
begin
s:=1;
if (z=s) and (f=false) then
begin
writeln();// делаем перенос строки
z:=0;
s:=s+1;//но увеличиваем кол-во строк
end;

Задача 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» -- выведите "да", если истинно и "нет" если ложно.
ПРИМЕЧАНИЕ: эта следующая задача базируются на том, что мы уже решали (см. задачи в конце урока).