Вопрос по информатике:
Программирование на языке Паскаль, очень надо
вводится последовательность натуральных чисел, кол-во не более 10 тысяч, каждое число не может превышать 30 тысяч. Окончанием ввода является 0. Определите кол-во чисел кратных 5
Пожаловаться
- 13.04.2018 11:16
- Информатика
- remove_red_eye 11047
- thumb_up 28
Ответы и объяснения 2
Var
A:array[0..10000] of integer;
B,i:integer;
Begin
i:=0;
Read(B);
While B0 do
Begin
A[i]:=B;
i:=i+1;
Read(B);
End;
B:=0;
i:=0;
While A[i]0 do
Begin
if A[i] mod 5 = 0 then B:=B+1;
i:=i+1;
End;
Write('Количество чисел, кратных пяти: ',B);
End.
A:array[0..10000] of integer;
B,i:integer;
Begin
i:=0;
Read(B);
While B0 do
Begin
A[i]:=B;
i:=i+1;
Read(B);
End;
B:=0;
i:=0;
While A[i]0 do
Begin
if A[i] mod 5 = 0 then B:=B+1;
i:=i+1;
End;
Write('Количество чисел, кратных пяти: ',B);
End.
Пожаловаться
- 14.04.2018 16:18
- thumb_up 34
// PascalABC.NET 3.2, сборка 1387 от 20.02.2017
// Внимание! Если программа не работает, обновите версию!
begin
var k:=ReadSeqIntegerWhile(x->x0).Where(x->x mod 5=0).Count;
Writeln('Чисел, кратных 5: ',k);
end.
Пример
34 -15 28 30 5 -3 -5 0
Чисел, кратных 5: 4
// Внимание! Если программа не работает, обновите версию!
begin
var k:=ReadSeqIntegerWhile(x->x0).Where(x->x mod 5=0).Count;
Writeln('Чисел, кратных 5: ',k);
end.
Пример
34 -15 28 30 5 -3 -5 0
Чисел, кратных 5: 4
Пожаловаться
- 15.04.2018 20:13
- thumb_up 42
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы