Напишите программу которая в последовательности натуральных чисел определяет сумму чисел, кратных 6. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число кратное 6. Кол-во чисел не превышает 100. Введённые числа не привышают 300. Программа должна ввести одно число - сумму чисел кратных 6
Ответы на вопрос
Ответил антагонист
0
var i,col,sum,c:integer;
begin
write('введите количество символов ');
read(col);
while (col>100) do begin write('ERROR//введите количество символов '); read(col);end;for i:=1 to col do begin
read(c);
while (c>300) do begin writeln('ERROR'); read(c); end;
if c mod 6 =0 then sum:=sum+c;
end;
write(sum);
end.
begin
write('введите количество символов ');
read(col);
while (col>100) do begin write('ERROR//введите количество символов '); read(col);end;for i:=1 to col do begin
read(c);
while (c>300) do begin writeln('ERROR'); read(c); end;
if c mod 6 =0 then sum:=sum+c;
end;
write(sum);
end.
Новые вопросы