fkn+antitotal

Задача 5 урок 13.1

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

Задача 4 урок 13.1

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

Задача 3 урок 13.1

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

var i,a: integer;
begin
i:=1;
while (i<=9) do
begin
    a:=1;
    repeat
        write(i*a,' ');
        a:=a+1;
    until (a>9);
i:=i+1;
writeln();
end;
end.

Задача 2 урок 13.1

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

var i,a: integer;
begin
i:=1;
while (i<=9) do
begin
    a:=1;
    while (a<=9) do
    begin
        write(i*a,' ');
        a:=a+1;
    end;
writeln();
i:=i+1;
end;
end.

Задача 1 урок 13.1

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

var i,a: integer;
begin
i:=1;
repeat
    a:=1;
    repeat
        write(i*a,' ');
        a:=a+1;
    until (a>9);
writeln();
i:=i+1;
until (i>9);
end.

Задача 16 Урок 11:

У вас есть число z=5. Пользователь вводит числа в цикле, если за последние 4 попытки ввода было хотя бы одно число больше или равно 15, то увеличивайте число z на 1 в ответ на каждое введенное число, а если такого числа не было, то уменьшайте на 1 в ответ на каждый ввод.
Цикл и программа должны завершиться, когда число z станет отрицательным.

Задача 5 урок 12.1

Решите с помощью цикла repeat/until:
Выведите на экран, все четные числа от 35 до 117 и нечетные числа, делящиеся на 7 и 3 нацело и при этом лежащие в диапазоне от 45 до 99.

var a: integer;
begin
a:=35;
repeat
if (a>=35) and (a mod 2=0)  then write (a,' ');
if (a>=45) and (a<=99) and (a mod 2=1) and (a mod 7=0) and (a mod 3=0) then write (a,' ');
a:=a+1;
until (a=117);
end.

Задача 4 урок 12.1

Решите с помощью цикла repeat/until:
Выведите на экран, все четные числа, делящиеся на 3 и на 6 нацело , лежащие в диапазоне от 35 до 117.

var a: integer;
begin
a:=35;
repeat
if ((a mod 2=0) and (a mod 3=0) and (a mod 6=0)) then
    write (a,' ');
    a:=a+1;
until(a=117)
end.

Задача 3 урок 12.1

Пользователь вводит в консоль символы (после каждого нажимая Enter), в ответ выводите символ '&', до тех пор пока пользователь не введёт '#', после чего завершите программу.

var a: char;
begin
repeat
    readln(a);
    writeln('&');
until (a='#')
end.

Задача 2 урок 12.1

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

var a: integer;
begin
readln(a);
if a>1 then 
    repeat 
        if (a mod 23 =0) then
        write(a,' ');
        a:=a-1;
    until (a=0)
else if a<1 then write ('ошибка');
end.