Предмет: Информатика,
автор: maximtreshin2
Информатика 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.
Интересные вопросы
Предмет: Математика,
автор: sapfirchik57
Предмет: Українська мова,
автор: kkovel81
Предмет: Алгебра,
автор: mimoters0
Предмет: Математика,
автор: Dans20041
Предмет: География,
автор: ксения793