Вопрос по информатике:
1)Напишите программу, которая в последовательности целых чисел определяет количество четных чисел, кратных десяти. Программа получает на вход целые числа, количество введенных чисел неизвестно, последовательность чисел заканчивается числом ноль (ноль – признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введенные числа по модулю не превышают 30000.
2) Напишите эффективную программу, которая по двум данным натуральным числам х и у, не превосходящим 10000, выводит на экран и подсчитывает количество натуральных чисел, кратных восьми, на отрезке [х,у] (включая концы отрезка).
Напишите пожалуйста на языке Паскаль.
- 04.04.2018 16:22
- Информатика
- remove_red_eye 16328
- thumb_up 39
Ответы и объяснения 1
// Внимание! Если программа не работает, обновите версию!
№1
begin
ReadSeqIntegerWhile(t->t0).Where(t->t mod 10=0).Count.Println
end.
№2
begin
var (x,y):=ReadInteger2; if x>y then Swap(x,y);
var d:=x mod 8;
x:= d=0 ? x : d>0 ? x+8-d : x-d ;
Range(x,y,8).Println.Count.Println
end.
Пример
-50 50
-48 -40 -32 -24 -16 -8 0 8 16 24 32 40 48
13
- 05.04.2018 06:38
- thumb_up 21
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.