Задачи Pascal.

1.1 Напишите программу, которая в последовательности натуральных чисел определяет минимальное число, кратное 9. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 9.

Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30000.

Программа должна вывести одно число: минимальное число, кратное 9.

Пример работы программы:

Входные данные	Выходные данные
3 18 9 31	9

 

var n, i, a, min: integer;

begin

    readln(n);

    min:= 30000;

    for i :=1 to n do

    begin

      readln (a);

       if (a mod 9 =0) and (a < min)

       then min :=a;

    end;

    writeln(min)

end.

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

Количество чисел не превышает 1000. Введённые числа  не превышают 30000.

Программа должна вывести одно число: максимальное число, кратное 5.

Пример работы программы:

Входные данные	Выходные данные
3 10 25 12	25

 

var n, i, a, max: integer;

begin

    readln(n);

    max:= -1;

    for i :=1 to n do

    begin

      readln (a);

       if (a mod 5 =0) and (a > max)

       then max :=a;

    end;

    writeln(max)

end.

 

 

Найдите ошибку в программе!!!

3. 1 Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 8. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 8.

Колиество чисел не превышает 1000. Введённые числа по модулю не превышают 30000.

Программа должна вывести одно число: количество всех двузначных чисел, кратных 8.

Пример работы программы:

Входные данные	Выходные данные
3 16 26 24	2

 

var n, i, a, k: integer;

begin

    readln(n);

    k:= 0;

    for i :=1 to n do

    begin

      readln (a);

       if (a mod 8 =0) then

        k :=k+1;

    end;

    writeln(k)

end.

 

4. 1 Напишите программу, которая в последовательности натуральных чисел вычисляет сумму всех натуральных чисел, кратных 7. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 7.

Количество чисел не превышает 100. Введённые числа по модулю не превышают 300.

Программа должна вывести одно число: сумму  чисел, кратных 7.

Пример работы программы:

Входные данные	Выходные данные
3 14 25 7	21

 

var n, i, a, sum: integer;

begin

    readln(n);

    sum:= 0;

    for i :=1 to n do

    begin

      readln (a);

       if (a mod 7 =0)

       then sum := sum + a;

    end;

    writeln(sum)

end.

 

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

Колиество чисел не превышает 1000. Введённые числа  не превышают 30000.

Программа должна вывести одно число: максимальное число, оканчивающееся на 3.

Пример работы программы:

Входные данные	Выходные данные
3 13 23 3	23

 

var n, i, a, max: integer;

begin

    readln(n);

    max:= -1;

    for i :=1 to n do

    begin

      readln (a);

       if (a mod 10 = 3) and (a > max)

       then max := a;

    end;

    writeln(max)

end.

6. 1 Напишите программу, которая в последовательности натуральных чисел определяет минимальное число, оканчивающееся на 6. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающееся на 6.

Колиество чисел не превышает 1000. Введённые числа  не превышают 30000.

Программа должна вывести одно число: минимальное число, оканчивающееся на 6

Пример работы программы:

Входные данные	Выходные данные
3 26 16 36	16

 

var n, i, a, min: integer;

begin

    readln(n);

    min:= 30000;

    for i :=1 to n do

    begin

      readln (a);

       if (a mod 10 = 6) and (a < min)

       then min := a;

    end;

    writeln(min)

end.

 

7. 1 Напишите программу, которая в последовательности целых чисел определяет количество четных чисел, кратных 9. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность).

Колиество чисел не превышает 1000. Введённые числа по модулю не превышают 30000.

Программа должна вывести одно число: количество чисел, кратных 9.

Пример работы программы:

Входные данные	Выходные данные
-32 18 17 0	9

 

var  a, answer: integer;

begin

    answer:= 0;

    readln(a);

    while a<>0 do begin

     

       if (a mod 2 = 0) and (a mod 9 = 0)

       then answer := answer + 1;

       readln(a);

    end;

    writeln(answer)

end.

8. 1.Напишите программу, которая в последовательности натуральных чисел вычисляет количество двузначных чисел, кратных 8. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность).

Колиество чисел не превышает 1000. Введённые числа  не превышают 30000.

Программа должна вывести одно число: количество двузначных чисел, кратных 8.

Пример работы программы:

Входные данные	Выходные данные
8 16 77 0	1

 

var  a, answer: integer;

begin

    answer:= 0;

    readln(a);

    while a<>0 do begin

     

       if (a mod 8 = 0) and (a > 9 ) and (a < 100)

       then answer := answer + 1;

       readln(a);

    end;

    writeln(answer)

end.

 

9. 1 Напишите программу, которая в последовательности натуральных чисел вычисляет сумму всех чисел, кратных 6 и оканчивающихся на 4. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность).

Колиество чисел не превышает 100. Введённые числа по модулю не превышают 300.

Программа должна вывести одно число: сумму всех  чисел, кратных 6 и оканчивающихся на 4.

Пример работы программы:

Входные данные	Выходные данные
14 24 144 22 12 0	168

 

var  a, sum: integer;

begin

    sum:= 0;

    readln(a);

    while a<> 0 do

      begin

       if (a mod 6 =0) and (a mod 10 = 4)

       then sum := sum + a;

       readln (a);

    end;

    writeln(sum)

end.

 

Скачано с www.znanio.ru