Вопрос по информатике:
Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 3. Программа получает на вход количество чисел в
последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 3. Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести одно число - количество чисел, кратных 3.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 02.08.2018 12:19
- Информатика
- remove_red_eye 3149
- thumb_up 13
Ответы и объяснения 1
// Напишите программу, которая в последовательности натуральных чисел определяет количество
//чисел, кратных 3. Программа получает на вход количество чисел в
//последовательности, а затем сами числа. В последовательности всегда имеется число,
//кратное 3. Количество чисел не превышает 100. Введённые числа не превышают 300.
//Программа должна вывести одно число - количество чисел, кратных 3.
Var i,j,x :word;
n :integer;
begin
writeln('Введите количество цифр в последовательности');
Readln (j);
if j>100 then //Проверка накличество чисел в последовательности
begin
writeln ('По условия задачи цифр не должно быть более 100');
writeln ('Введите количесво цифр еще раз');
readln (j);
end;
for i:=1 to j do
begin
Writeln ('Введите ',i,' число');
readln (n);
if n>300 then //проверка максимального значения числа
begin
writeln ('Данное число не удовлетворяет условиям задачи (>300');
writeln ('Введите его еще раз');
readln (n);
end;
n:= n mod 3;
if n=0 then x:=x+1;
end;
Writeln ('Количество чисел, кратных 3:');
Writeln (x);
end.
- 03.08.2018 12:21
- thumb_up 3
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.