1)Напишите программу, которая в последовательности целых чисел определяет количество четных
1)Напишите программу, которая в последовательности целых чисел определяет количество четных чисел, кратных 10. Программа получает на вход целые числа, количество введенных чисел неизвестно, последовательность чисел кончается числом ноль (ноль признак окончания ввода, не заходит в последовательность). Количество чисел не превосходит 1000. Введенные числа по модулю не превосходят 30000.
2) Напишите эффективную программку, которая по двум данным естественным числам х и у, не превосходящим 10000, выводит на экран и подсчитывает количество естественных чисел, кратных восьми, на отрезке [х,у] (включая концы отрезка).
Напишите пожалуйста на языке Паскаль.
// Внимание! Если программа не работает, обновите версию!
1
begin
ReadSeqIntegerWhile(t-gt;tlt;gt;0).Where(t-gt;t mod 10=0).Count.Println
end.
2
begin
var (x,y):=ReadInteger2; if xgt;y then Swap(x,y);
var d:=x mod 8;
x:= d=0 ? x : dgt;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
-
Вопросы ответы
Статьи
Информатика
Статьи
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.
Разные вопросы.
Обществознание.
Математика.
Химия.