Информатика 9 класс. Написать программу на языку Паскаль, используя Цикл.
Задача:
Дана последовательность натуральных чисел (целые). Определить сумму чисел, кратные 6 (делятся на 6 без остатка).
Ответы
Ответ дал:
0
var a,s,i,n: integer;
begin
write('введите кол-во чисел в последовательности: ');
readln(n);
s:=0;
writeln('введите числа:');
for i:=1 to n do begin
readln(a);
if a mod 6=0 then s:=s+a;
end;
write('сумма: ',s);
end.
Вас заинтересует
4 месяца назад
4 месяца назад
5 месяцев назад
5 месяцев назад
2 года назад
2 года назад
7 лет назад