Иерофей
6 год назад
1. напишите программу, которая для последовательности натуральных чисел определяет их сумму. Программа получает на вход количество чисел в последовательности и сами числа
2. Измените программу так, чтобы определялось произведение чисел.
3. измените программу так, чтобы определялось количество чисел, заканчивающихся на 8
ОТВЕТЫ
Аггей
Jul 20, 2019
1 и 3 пункты
var n, s: integer;
begin
WriteLn(Введите последовательность. Конец ввода - 0);
repeat
ReadLn(n);
if (n gt; 0) and ((n mod 10 = 8)) then
s := s + n
until n = 0;
WriteLn(Сумма чисел, оканчивающихся на 3 или 9 = , s);
end.
var n, s: integer;
begin
WriteLn(Введите последовательность. Конец ввода - 0);
repeat
ReadLn(n);
if (n gt; 0) and ((n mod 10 = 8)) then
s := s + n
until n = 0;
WriteLn(Сумма чисел, оканчивающихся на 3 или 9 = , s);
end.
122
Смежные вопросы:
