Добросердечные люди, помогите, пожалуйста, сделать задачи по информатике. 1. Напишите программу,
Благие люди, помогите, пожалуйста, сделать задачи по информатике.
1. Напишите программку, которая в последовательности естественных чисел определяет количество всех чётных чисел, кратных 3. Программка получает на вход естественные числа, количество введённых чисел неизвестно, последовательность чисел кончается числом 0 (0 признак окончания ввода, не заходит в последовательность). Количество чисел не превосходит 1000. Введённые числа не превосходят 30 000. Программка обязана вывести одно число: количество всех чётных чисел, кратных 3.
2. Напишите программку, которая в последовательности естественных чисел определяет количество всех нечётных чисел, кратных 7. Программа получает на вход естественные числа, количество введённых чисел безызвестно, последовательность чисел заканчивается числом 0 (0 признак окончания ввода, не заходит в последовательность). Количество чисел не превосходит 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число: количество всех чётных чисел, кратных 7.
//PascalABC.Net
//NaaMan
var
i, n : integer;
begin
i := 0;
repeat
write('Введите число gt; ');
readln(n);
if (n gt; 0) then
if (n mod 2 = 0) then
if (n mod 3 = 0) then i := i + 1;
until (n = 0);
writeln('Количество чётных чисел, кратных 3: ', i)
end.
Для решения 2-ой задачи необходимо поменять (n mod 2 = 0) на (n mod 2 = 1) и (n mod 3 = 0) на (n mod 7 = 0).
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.
Разные вопросы.
Обществознание.
Математика.
Химия.
Русский язык.