Заметили ошибку ?
Выделите это место и нажмите Ctrl + Q

ОГЭ по информатике. Вторая часть. Определение количество элементов - задачи на Паскаль (Pascal)


Определение КОЛИЧЕСТВО элементов, КРАТНЫХ 8.

Задача 1

Напишите программу, которая в последовательности натуральных чисел определяет КОЛИЧЕСТВО элементов, КРАТНЫХ 8. В последовательности всегда имеется число, кратное 8. Программа получает на вход количество чисел в последовательности, а затем сами числа.

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

Программа должна вывести одно число  КОЛИЧЕСТВО элементов, КРАТНЫХ 8.

 

Решение:

Вначале Количество равно нулю. Перебираем в ЦИКЛЕ числа. Если нам попался элемент, кратный 8 (остаток от деления на 8 равен нулю), то мы плюсуем 1 к нашему количеству.


Var a, i, quantity, n: integer;

Begin

Write('n<=1000 n=');

Read(n);

quantity:=0;

For i:=1 to n do

Begin

Read(a);

if a mod 8 = 0

  then quantity:= quantity + 1;

End;

Writeln('quantity=', quantity);

End.

 

Определение КОЛИЧЕСТВО элементов, оканчивающихся на 8.

 

Задача 2

Напишите программу, которая в последовательности натуральных чисел определяет КОЛИЧЕСТВО элементов, оканчивающихся на 8. В последовательности всегда имеется число, оканчивающееся на 8. Программа получает на вход количество чисел в последовательности, а затем сами числа.

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

Программа должна вывести одно число  КОЛИЧЕСТВО элементов, оканчивающихся на 8.

 

Решение:

Вначале Количество равно нулю. Перебираем в ЦИКЛЕ числа. Если нам попался элемент, оканчивающийся на 8 (остаток от деления на 10 равен 8), то мы плюсуем 1 к нашему количеству.


Var a, I, quantity, n: integer;

Begin

Write('n<=1000 n=');

Read(n);

quantity:=0;

For i:=1 to n do

Begin

Read(a);

if a mod 10 = 8

  then quantity:= quantity + 1;

End;

Writeln('quantity=', quantity);

End.

 

 

Определение КОЛИЧЕСТВО элементов, БОЛЬШИХ 10.

Задача 3

Напишите программу, которая в последовательности натуральных чисел определяет КОЛИЧЕСТВО элементов, больших 10. В последовательности всегда имеется число, который больше 10. Программа получает на вход количество чисел в последовательности, а затем сами числа.

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

Программа должна вывести одно число  КОЛИЧЕСТВО элементов, оканчивающихся на 8.

 

Решение:

 Вначале Количество равно нулю. Перебираем в ЦИКЛЕ числа. Если нам попался элемент, который больше 10, то мы плюсуем 1 к нашему количеству.


Var a, i, quantity, n: integer;

Begin

Write('n<=1000 n=');

Read(n);

quantity:=0;

For i:=1 to n do

Begin

Read(a);

if a > 10

  then quantity:= quantity + 1;

End;

Writeln('quantity=', quantity);

End.

 

Определение КОЛИЧЕСТВО элементов, БОЛЬШИХ 15 и КРАТНЫХ 7.

Задача 4

Напишите программу, которая в последовательности натуральных чисел определяет КОЛИЧЕСТВО элементов, БОЛЬШИХ 15 и КРАТНЫХ 7. В последовательности всегда имеется число, которое БОЛЬШОЕ 15 и КРАТНОЕ 7 Программа получает на вход количество чисел в последовательности, а затем сами числа.

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

Программа должна вывести одно число  КОЛИЧЕСТВО элементов, БОЛЬШИХ 15 и КРАТНЫХ 7.

 

Решение:

Вначале Количество равно нулю. Перебираем в ЦИКЛЕ числа. Если нам попался элемент, который больше 15 И кратное 7 (остаток от деления на 7 равен 0), то мы плюсуем 1 к нашему количеству.


Var a, i , quantity, n: integer;

Begin

Write('n<=1000 n=');

Read(n);

quantity:=0;

For i:=1 to n do

Begin

Read(a);

if (a > 15) and (a mod 7 = 0)

  then quantity:= quantity + 1;

End;

Writeln('quantity=', quantity);

End.

 



28-09-2018 в 14:05:11





Похожая статья:

Легко и просто решаем 12 задание ОГЭ по информатике

Рад опубликовать 12 видеоурок курса "Подготовка к ОГЭ по информатике"....

Категория: ОГЭ  Подкатегория: -
Дата: 15-01-2018 в 16:47:34 0



Оставить коментарий:



Напишите email, чтобы получать сообщения о новых комментариях (необязательно):


Задача против робота. Расположите картинки горизонтально:


Последние
видео:



Шейкер-сортировка (С#)
ОГЭ по информатике. Задание 18


Подготовка к
ОГЭ


Подготовка к ОГЭ по информатике


Давайте
дружить!


Группа Вконтакте Code-Enjoy

Твиттер Александра Калужского

YouTube канал Code-Enjoy


Препод напал на тебя как вампир? Не бойся! Студланс защитит этот мир!