Напишите программу которая в последовательности натуральных - вопрос №1709625 от wenefep07126 31.01.2023 09:47

Question

Информатика: Напишите программу которая в последовательности натуральных чисел определяет сумму чисел, кратных 6. программа получает на вход количество чисел в последовательности, а затем сами числа. в последовательности всегда имеется число кратное 6. кол-во чисел не превышает 100. введённые числа не привышают 300. программа должна ввести одно число - сумму чисел кратных 6

wenefep07126 · Answer

Паскаль   var a,s,n,i:integer;begin  s:=0;  write( kol-vo chisel: ); read(n);   if n 100 then writeln( error! );   begin    writeln( vvedite chisla );    for i:=1 to n do    begin      read(a);       if a 300 then write( error! );       if (a mod 6=0) then s:=s+a;    end;    write( summa= ,s);  end; end....