Напишите программу, которая в последовательности натуральных чисел определяет количество всех четных чисел, кратных 5. Входные данные:
5-9 класс
|
10,14,50,25,17,0
Выходные: 2
ой да, что может быть проще!)))
напишу сам цикл и условие. кстати допиши, как задается последовательность - рандомно или с клавы, думаю последовательность лучше задать как массив. проще будет)))
ниже условие проверки кратности и четности чисел. проверь обязательно, могу ошибится))
begin
clrscr;
For i:= 1 to (кол-во чисел) do
begin
If (a mod 2 = 0) and (a mod 7 = 0) then
k:=k+1;
end;
вроде вот и все))
var
a: array[1..9999] of integer;
i,n,b: integer;
begin
write('Кол-во чисел: '); readln(n);
for i:=1 to n do
begin
write(i, ' число = ');
readln(a[i]);
if (a[i] mod 2 = 0) and (a[i] mod 5 = 0) then inc(b);
end;
writeln('Кол-во четных чисел, кратных 5: ', b);
end.
Другие вопросы из категории
передачи файла в секундах.
2. Сколько секунд потребуется модему, передающему сообщения со скоростью 28 800 бит/с, чтобы передать 100 страниц текста в 30 строк по 60 символов каждая, при условии, что каждый символ кодируется 1 байтом?
сможет сделать).
Помогите, нужно срочно!
етствует последовательности 0001001 а - кара б - рак в - акр 7 - кар
после какого дня суммарный пробег лыжника будет больше чем N км. Решить на Паскале.
K, P, N вводятся с клавиатуры
Читайте также
ихся 0 или 1.
Программа получает на вход целые числа от -3000 до 3000.
2)Напишите программу,которая в последовательности целых чисел вычисляет среднее арифметическое среди двухзначных чётных чисел,делящихся на 3.
НУЖНО СЕГОДНЯ! 66 БАЛЛОВ!
кратна 3. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность).
оканчивающихся на 4. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число: сумму всех чисел, кратных 6 и оканчивающихся на 4.
Пример работы программы:
Входные данные Выходные данные
14 168
24
144
22
12
0
на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность).
2)Найти среднее арифметическое всех целых чисел от a до 200 (значения a и b вводятся с клавиатуры; a>=200);
вход натуральные числа через клавиатуру, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число: сумму всех чисел, кратных 6 и оканчивающихся на 4. Пояснение: цикл while x<>0 do с условием if (x mod 6=0) and (x mod 10=4)