СВЕТ: СПАСИБО
01-12-2023
Читать статью
Калужский Александр: Задача про Цаплю: https://www.youtube.co..
24-11-2023
Сергей: спасибо большое
Напишите программу, которая в последовательности натуральных чисел определяет КОЛИЧЕСТВО элементов, КРАТНЫХ 8. В последовательности всегда имеется число, кратное 8. Программа получает на вход количество чисел в последовательности, а затем сами числа.
Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число – КОЛИЧЕСТВО элементов, КРАТНЫХ 8.
Вначале Количество равно нулю. Перебираем в ЦИКЛЕ числа. Если нам попался элемент, кратный 8 (остаток от деления на 8 равен нулю), то мы плюсуем 1 к нашему количеству.
var a, i, quantity, n: integer; begin 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); end.
Напишите программу, которая в последовательности натуральных чисел определяет КОЛИЧЕСТВО элементов, оканчивающихся на 8. В последовательности всегда имеется число, оканчивающееся на 8. Программа получает на вход количество чисел в последовательности, а затем сами числа.
Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число – КОЛИЧЕСТВО элементов, оканчивающихся на 8.
Вначале Количество равно нулю. Перебираем в ЦИКЛЕ числа. Если нам попался элемент, оканчивающийся на 8 (остаток от деления на 10 равен 8), то мы плюсуем 1 к нашему количеству.
var a, I, quantity, n: integer; begin 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); end.
Напишите программу, которая в последовательности натуральных чисел определяет КОЛИЧЕСТВО элементов, больших 10. В последовательности всегда имеется число, который больше 10. Программа получает на вход количество чисел в последовательности, а затем сами числа.
Вначале Количество равно нулю. Перебираем в ЦИКЛЕ числа. Если нам попался элемент, который больше 10, то мы плюсуем 1 к нашему количеству.
var a, i, quantity, n: integer; begin read(n); quantity:=0; for i:=1 to n do begin read(a); if a > 10 then quantity:= quantity + 1; end; Writeln(quantity); end.
Напишите программу, которая в последовательности натуральных чисел определяет КОЛИЧЕСТВО элементов, БОЛЬШИХ 15 и КРАТНЫХ 7. В последовательности всегда имеется число, которое БОЛЬШОЕ 15 и КРАТНОЕ 7 Программа получает на вход количество чисел в последовательности, а затем сами числа.
Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число – КОЛИЧЕСТВО элементов, БОЛЬШИХ 15 и КРАТНЫХ 7.
Вначале Количество равно нулю. Перебираем в ЦИКЛЕ числа. Если нам попался элемент, который больше 15 И кратное 7 (остаток от деления на 7 равен 0), то мы плюсуем 1 к нашему количеству.
var a, i , quantity, n: integer; begin 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); end.