Напишите программу, которая в последовательности - вопрос №11948782 от Ээн 18.01.2023 09:26

Question

Информатика: Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел, кратных 5. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность). Программа должна вывести одно число: сумму всех чисел, кратных 5.

Ээн · Answer

program dsa; var  i,s : integer;  begin    i := 1;    s := 0;    while i 0 do      begin      read(i);    if i mod 5 = 0 then      s := s + i;    end;write(s);      end....