fkn+antitotal

http://fkn.ktu10.com/?q=node/8539
{Пользователь вводит два числа, найдите из них максимальное. (тут всё просто)}
program Task_5;

var a,b:integer; // переменные для хранения чисел которые будем сравнивать

begin
     writeln('Enter two numbers :'); // числа которые вводит пользователь
     readln(a,b);

     if (a > b ) then // условие
          writeln(a) // если a > b
     else
          writeln(b); // если b > a

     readln();

end.

http://fkn.ktu10.com/?q=node/8539
{Даны три целых числа: A, B, C. Проверить истинность высказывания: « Число A и число B больше 17, а C > 7». -- выведите "да", если истинно и "нет" если ложно.}

http://fkn.ktu10.com/?q=node/8539
{Даны три целых числа: A, B, C. Проверить истинность высказывания: «Число A находится между числами B и C» -- выведите "да", если истинно и "нет" если ложно.}

http://fkn.ktu10.com/?q=node/8539
{Сравните два числа, если первое больше второго, то выведите на экран "12", а если нет, то выведите на экран "888".}

var a,b:integer; // объявляем переменные для храниния чисел которые будем сравнивать

begin
     writeln('Enter two numbers :'); // пользователь вводит числа (целые)
     readln(a,b);

     if (a>b) then // сравниваем
          writeln(12) // если (a>b)
     else
          writeln(888); // ели (a<b)

     readln();

end.

http://fkn.ktu10.com/?q=node/8539
{Сравните два числа, если первое больше второго, то выведите на экран "12". (здесь нужно использовать неполную форму условного оператора)}

var a,b:integer; // переменные для хранения чисел которые будм сравнивать

begin
     writeln('Enter two numbers : '); // числа которые вводит пользователь
     readln(a,b);

     if (a>b) then // сравниваем
          writeln(12); // если да (12), если нет то ни чего не выводится

     readln();

end. 

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

Модифицируйте предыдущую задачу так, чтобы в случае, если число удовлетворяет требованиям (целое, положительное), то на экран выводились четные числа.

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

Пользователь вводит целое положительное число, если оно не соответствует критериям (то есть не является положительным), выведете сообщение об ошибке, в противном случае выведете на экран все числа от 1 до введённого пользователем.

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

Пользователь вводит первое целое число-ограничитель m. А затем начинает вводить целые числа по одному, пока не введёт число большее числа-ограничителя.
Если очередное целое число больше 1, то в ответ на каждое такое число программа должна выводить все целые числа от единицы до этого числа.
Примечание: это задача на вложенные циклы, в качестве внешнего надо использовать while, а в качестве внутреннего можно использовать или for или while.

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

Пользователь вводит числа до тех пор пока не введёт число меньшее 1. В ответ на каждое введённое им число выводите на экран все нечетные числа от 1 до это числа, при этом делящиеся на 5. Если же пользователь ввел число меньшее 1, то завершите программу.

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

Выведите на экран таблицу умножения используя один цикл while и один repeat-until .

program lesson13_3;
var
    i, j: integer;
begin
    i := 1;
    while i < 10 do
    begin
        j := 1;
        repeat
            writeln(i, ' * ', j, ' = ', i * j);
            j := j + 1;
		until j > 10;
        i := i + 1;
	end;
    readln();
end.