Написать программку которая обретает: 1) в последовательности естественных чисел сумму всех
Написать программку которая обретает: 1) в последовательности естественных чисел сумму всех чисел, которые кратны 4 и кончаются на цифру 2, кол-во чисел вводит юзер
2) последовательность заканчивается 0
3)найти кол-во чисел, которые не больше 100
4) подсчитать сумму всей последовательности
Паскаль ABC
//PascalABC.Net 3.1 сборка 1200
var
number: integer;
sum, sum_all, k: integer;
begin
repeat
write('Элемент последовательности =gt; ');
readln(number);
if (number mod 10 = 2 ) and (number mod 4 = 0) then sum := sum + number;
if (number lt;= 100) then k := k + 1;
sum_all := sum_all + number;
until number = 0;
writeln('Сумма всех чисел, которые кратны 4 и кончаются на цифру 2 = ', sum);
writeln('Сумма всех = ', sum_all);
writeln('Кол-во чисел, которые не больше 100 = ', k);
end.
-
Вопросы ответы
Статьи
Информатика
Статьи
Разные вопросы.
Математика.
Физика.
Геометрия.
Разные вопросы.
Обществознание.
Математика.
Химия.
Русский язык.
Разные вопросы.