Задачи на Pascal. Подготовка к ОГЭ

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

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

Программа должна вывести одно число: минимальное число, кратное 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.

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

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.

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

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.

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

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.

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

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

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

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.

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

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. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность).

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

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

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

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.

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

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

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

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

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.

ЦИКЛЫ В ПАСКАЛЕ

РАБОТА ЦИКЛА  FOR

Часто цикл for называют циклом со счетчиком. Этот цикл используется, когда число повторений не связано с тем, что происходит в теле цикла. Т.е. количество повторений может быть вычислено заранее (хотя оно не вычисляется).

var

    i, n: integer;

begin

    write ('Количество знаков: ');

    readln (n);

    for i := 1 to n do

        write ('(*) ');

readln

end.

var

    i, n: integer;

begin

    writeln ('Количество знаков: ');

    readln (n);

    for i := 1 to n do

        writeln ('*');

end.

В цикле repeat логическое выражение стоит после тела цикла.

В примере, даже если n будет равно 0, одна звездочка все равно будет напечатана.

var

    i, n: integer;

begin

    write ('Количество знаков: ');

    readln (n);

    i := 1;

    repeat

        write ('(*) ');

        i := i + 1

    until i > n;

end.

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

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

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

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

var

    i, n, x, sum: integer;

begin

    readln (n);

    sum := 0;

    for i := 1 to n do

    begin

      readln(x);

        if (x mod 10 = 5) then

          sum:= sum+x

    end;

    writeln(sum);

end.

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

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

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

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

var

    i, n, x, R: integer;

begin

    readln (n);

    R := 0;

    for i := 1 to n do

    begin

      readln(x);

        if (x mod 8 = 0) then

          R:= R+1

    end;

    writeln(R);

end.

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

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

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

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

var

     x, k: integer;

begin

    k := 0;

    repeat

      readln(x);

      if (x mod 8 = 0) and (x >= 10) and (x <= 99) and (x > 0) then

        k := k + 1;

    until x = 0;

    writeln(k);

end.

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

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

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

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

var

     x, k: integer;

begin

    k := 0;

    repeat

      readln(x);

      if ((x mod 5 = 0) or (x mod 9 = 0)) and (x > 0) then

        k := k + 1;

    until x = 0;

    writeln(k);

end.

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

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

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

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

var

     x, k: integer;

begin

    k := 0;

    repeat

      readln(x);

      if ((x mod 4 = 0) and (x mod 10 = 2)) and (x > 0) then

        k := k + 1;

    until x = 0;

    writeln(k);

end.

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

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

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

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

var

     x, sum: integer;

begin

    sum := 0;

    repeat

      readln(x);

      if (x mod 8 = 0) and (x in [10..99]) and (x > 0) then

        sum := sum + x;

    until x = 0;

    writeln(sum);

end.

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

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

Программа должна ввести одно число: сумму всех двузначных чисел, кратных 8, или вывести “NO” , если таких чисел нет. Значение выводить с точностью до десятых.

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

var

    k, x, sum: integer;

    sr:real;

begin

    sum := 0; k:= 0;

    repeat

      readln(x);

      if (x mod 8 = 0) and (x > 0) then

        begin

        sum := sum + x;

        k := k + 1;

        end;

    until x = 0;

    if k = 0 then

      writeln('NO')

    else

    begin

      sr := sum/k;

      writeln(sr:10:1);

    end;

 end.  

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

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

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

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

var

  x,n,k,i: integer;

begin

   readln(n);

   k := 0;

   for i:=1 to n do

   begin

      readln(x);

      if (x mod 3 = 0) and (x mod 10 = 4) then

          k := k + 1;

   end;

   writeln(k);

 end. 

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

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

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

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

var

  x,n,sum,i: integer;

begin

   readln(n);

   sum :=0;

   for i:=1 to n do

   begin

      readln(x);

      if (x mod 3 = 0) and (x mod 10 = 8) then

          sum := sum + x;

   end;

   writeln(sum);

 end.

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

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

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

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

var

  x,n,sum,i: integer;

begin

   readln(n);

   sum :=0;

   for i:=1 to n do

   begin

      readln(x);

      if (x mod 3 = 0) and (x mod 10 = 4) then

          sum := sum + x;

   end;

   writeln(sum);

 end. 

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

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

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

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

var

  x,n,k,i: integer;

begin

   readln(n);

   k :=0;

   for i:=1 to n do

   begin

      readln(x);

      if (x mod 3 = 0) and (x mod 10 = 4) then

          k := k + 1;

   end;

   writeln(k);

 end. 

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

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

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

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

var

  x,n,min,i: integer;

begin

   readln(n);

   min := 30000;

   for i:=1 to n do

   begin

      readln(x);

      if (x mod 10 = 2) and (x < min) then

          min := x;

   end;

   writeln(min);

 end.

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

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

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

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

var

  x,n,max,i: integer;

begin

   readln(n);

   max := -30000;

   for i:=1 to n do

   begin

      readln(x);

      if (x mod 10 = 9) and (x > max) then

          max := x;

   end;

   writeln(max);

 end.

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

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

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

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

  var

  x,k,i: integer;

begin

   for i:=1 to 1000 do

   begin

      readln(x);

      if x = 0 then

          break

      else    

      if (x mod 5 = 0) or (x mod 9 = 0) then

          k := k + 1;

   end;

   writeln(k);

 end.

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

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

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

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

var

  x,k,i: integer;

begin

   k := 0;

   for i:=1 to 1000 do

   begin

      readln(x);

      if x = 0 then

          break

      else    

      if (x mod 4 = 0) and (x >= 100) and (x<= 999) then

          k := k + 1;

   end;

   writeln(k);

 end. 

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