fkn+antitotal

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

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

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

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

С использованием логической операции and.

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

В некоем виртуальном пространстве есть виртуальные, опять же, ASCII-счеты, с 7-ю спицами по 10 костяшек на каждой, в сброшенном состоянии (условный ноль) они выглядят так:

---++++++++++
---++++++++++
---++++++++++
---++++++++++
---++++++++++
---++++++++++
---++++++++++

Задание: визуализируйте на счетах введенное пользователем число.

Примеры:

Пользователь вводит: 7
Получаем:

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

Составьте программу, которая выводит на экран прямоугольный флаг N×M вида (с рамкой по краям):
?

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

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

var
  a, b : integer;
begin
  writeln('Enter the first number');
  readln (a);
  writeln('Enter the second number');
  readln(b);
  if ((a > b)) then
   writeln ('The number a the big')
  else
   writeln('The number b the big');
  readln();
end.   

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

Составьте программу, которая выводит на экран прямоугольный флаг N×M вида (c чередованием плюсов и минусов в строках, используйте циклы while):

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

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

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

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

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

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

var
  a, b: integer;
begin
  writeln('Enter the first number');
  readln (a);
  writeln('Enter the second number');
  readln(b);
  if (a > b) then
     writeln(12)
  else
     writeln(888);
  readln();
end. 

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

Составьте программу, которая выводит на экран прямоугольный флаг N×M вида (используйте циклы repeat):

- - - - - -
- - - - - -
- - - - - -
- - - - - -

var i, k,  M, N: integer;
begin
  writeln('vvedi shiriny');
  readln(M);
  writeln('vvedi visota');
  readln(N);
  k := 0;
  repeat
    i := 0;
    repeat
      write('-');
      i := i + 1;
    until(i = M);
    writeln();
    k := k + 1;
  until(k = N) ;
  readln();
end.