Леонид: Спасибо
20-09-2023
Читать статью
Калужский Александр: Леонид, цикл x повториться 300 раз, цикл..
Леонид: Почему k == 90000 в примере (x > A) ∨ (y..
Напишите программу, которая в последовательности натуральных чисел определяет СУММУ чисел. Программа получает на вход количество чисел в последовательности, а затем сами числа.
Количество чисел не превышает 1000. Введённые числа не превышают 30 000.
Программа должна вывести одно число – СУММУ чисел.
В начале СУММА равна нулю. Перебираем в ЦИКЛЕ числа. Суммируем: То что было в сумме плюс очередной элемент.
Var a, i, sum, n: integer; begin read(n); sum:=0; for i:=1 to n do begin read(a); sum:= sum + a; end; Writeln(sum); end.
Напишите программу, которая в последовательности натуральных чисел определяет СУММУ чисел, КРАТНЫХ 4. В последовательности всегда имеется число, кратное 4. Программа получает на вход количество чисел в последовательности, а затем сами числа.
Программа должна вывести одно число – СУММУ чисел, кратных 4.
В начале СУММА равна нулю. Перебираем в ЦИКЛЕ числа. Если нам попался элемент кратный 4, то мы суммируем: то что было в сумме плюс наш элемент.
var a, i, sum, n: integer; begin read(n); sum:=0; for i:=1 to n do begin read(a); if a mod 4 = 0 then sum:= sum + a; end; Writeln(sum); end.
Напишите программу, которая в последовательности натуральных чисел определяет СУММУ чисел, ОКАНЧИВАЮЩИХСЯ на 2. В последовательности всегда имеется число, ОКАНЧИВАЮЩЕЕСЯ на 2. Программа получает на вход количество чисел в последовательности, а затем сами числа.
Программа должна вывести одно число – СУММУ чисел, ОКАНЧИВАЮЩИХСЯ на 2.
Вначале СУММА равна нулю. Перебираем в ЦИКЛЕ числа. Если нам попался элемент, который оканчивается на 2 то мы суммируем: то что было в сумме плюс наш элемент.
var a, i, sum, n: integer; begin read(n); sum:=0; for i:=1 to n do begin read(a); if a mod 10 = 2 then sum:= sum + a; end; Writeln(sum); end.
Напишите программу, которая в последовательности натуральных чисел определяет СУММУ чётных чисел. В последовательности всегда имеется чётное число. Программа получает на вход количество чисел в последовательности, а затем сами числа.
Программа должна вывести одно число – СУММУ чётных чисел.
Вначале СУММА равна нулю. Перебираем в ЦИКЛЕ числа. Если нам попался чётный элемент (остаток от деления на 2 равен нулю), то мы суммируем: то что было в сумме плюс наш элемент.
var a, i, sum, n: integer; begin read(n); sum:=0; for i:=1 to n do begin read(a); if a mod 2 = 0 then sum:= sum + a; end; Writeln(sum); end.