fkn+antitotal

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

Есть программа, где стоит проверка на ввод пользователем числа 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');

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

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

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

Пользователь вводит четыре числа, найдите из них максимальное -- решите через вложенные блоки if в полной форме (без использования логических операций).
Примечание: решение с помощью AND более удобно на практике, но для тренировки понимания тут мы решаем через вложенные блоки.

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

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

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

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

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

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

 Program u9z7;
var a,b:integer;

begin
  writeln('vvedite 2 chisla');
  readln(a,b);
  if (a>b) then
    writeln('max=', a) else
    writeln('max=', b);
  readln();
end.                     

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

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

Program u9z6;
var a,b,c:integer;

begin
  writeln('vvedite 3 chisla');
  readln(a,b,c);
  if ((a > 17)and(b > 17)) and (c > 7) then
    writeln('da') else
    writeln('net');
  readln();
end. 

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

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

Program u9z4;
var a,b:integer;
      c:boolean;
begin
  writeln('vvedite 2 chisla');
  readln(a,b);
  if a>b then
    writeln('12') else
    writeln('888');
  readln();
end.              

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

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

Program u9z5;
var a,b,c:integer;

begin
  writeln('vvedite 3 chisla');
  readln(b,a,c);
  if ((a>b) and (a<c)) or ((a<b) and (a>c)) then
    writeln('da') else
    writeln('net');
  readln();
end.                                

Урок 13.1 Задача 14

С помощью вложенных циклов выведите на экран таблицу деления чисел от 1 до 9.

Решение:

var m, a: integer;
begin
  for m := 1 to 9 do;
    begin
      for a := 1 to 9 do;
        write (m, '/', a, '=',  m/a, ' ');
      writeln();
    end;
   readln();
end;       

Урок 13.1 Задача 13

Пользователь вводит два целых числа M и N, если M четное, делайте то же, что и в предыдущей задаче, а если нечётное, то умножайте M в цикле на 3 до тех пор пока результат не станет больше N (и выводите каждый из промежуточных результатов умножения на экран), например для:
M := 3;
N := 15;
Получим:
9
27

Решение: