Алгебра
Английский
Биология
География
Геометрия
История
Русский
Обществознание
Физика
Химия
Информатика
Литература
МатематикаВопрос:
11. (3 балла). Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 4. Программа получает на вход количество чисел в последовательности, а затем сами числа. Программа должна вывести одно число количество чисел, крат-ных 4.
Ответ:
pascal
var
n, count, num, i: integer;
begin
readln(n);
count := 0;
for i := 1 to n do
begin
readln(num);
if num mod 4 = 0 then
count := count + 1;
end;
writeln(count);
end.
var
n, count, num, i: integer;
begin
readln(n);
count := 0;
for i := 1 to n do
begin
readln(num);
if num mod 4 = 0 then
count := count + 1;
end;
writeln(count);
end.
Похожие
- 1. (1 балл). Переведите двоичное число 1110001 в десятичную систему счисления.
- 2. (1 балл). Переведите число 121 из десятичной системы счисления в двоичную систему счисления. Сколько единиц содержит полученное число? В ответе укажите одно число количество единиц.
- 3. (2 балла). Переведите число А2 из шестнадцатеричной системы счисления в восьмиричную систему счисления.
- 4. (1 балл). Для какого из приведённых значений числа Х истинно высказывание: НЕ (Х < 6) И (Х < 7)?
- 5. (1 балл). Для какого из приведённых чисел истинно высказывание: (число <75) И НЕ (число чётное)?
- 6. (1 балл). Для какого из приведённых имён истинно высказывание: НЕ (Первая буква гласная) И НЕ (Последняя буква согласная)?
- 7. (3 балла). Составьте таблицу истинности для выражения: -X &;(-Yv-X)
- 8. (1 балл). Исполните алгоритм при х=20, у=15. Запишите результат.
- 9.(1 балл). Определите значение переменной а после выполнения алгоритма:
- 10.(2 балла). Запишите значение переменной к, полученное в результате работы следующей программы.
