Писать только на алгоратмическом языке: 1) Даны натуральные числа A и B. Напишите алгоритм, чтобы найти наибольшее из этих двух чисел.
2) Даны три числа: A, B и C. Найдите большее из этих трех чисел.
3) Дано 4-значное число A. Напишите алгоритм, который представляет собой сумму этих чисел.
4) Дано трехзначное число A. Напишите алгоритм, чтобы проверить, делится ли это число на заданные числа B и C.
5) Учитывая натуральное число N. Напишите алгоритм, чтобы найти сумму последовательности чисел от 1 до N.
6) Учитывая натуральные числа N и A. Напишите алгоритм, который печатает числа, которые делятся на заданное число A, из последовательности чисел от 1 до N.
7) Напишите алгоритм вывода чисел, равных одной сотой части трехзначного числа.
8) Учитывая натуральное число N. Напишите алгоритм вывода чисел в порядке убывания от 1 до N.
var n: integer;
begin
repeat
n:=readinteger('Введите порядковый номер: ');
until n in [1..52];
case (n mod 13) of
1: write ('Двойка');
2: write ('Тройка');
3: write ('Четверка');
4: write ('Пятерка');
5: write ('Шестерка');
6: write ('Семерка');
7: write ('Восьмерка');
8: write ('Девятка');
9: write ('Десятка');
10: write ('Валет');
11: write ('Дама');
12: write ('Король');
0: write ('Туз');
end;
if n mod 13<>0 then n:=(n div 13) + 1 else n:=n div 13;
case n of
1: write (' бубен');
2: write (' черви');
3: write (' трефы');
4: write (' пики');
end;
end.