Предмет: Информатика,
автор: mistermen009
Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, кратных 6. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 6. Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести одно число – сумму чисел, кратных 6. Паскаль , программа должна быть рабочей,если будет рабочей дам еще 15 баллов
Ответы
Автор ответа:
0
Ответ:
Program p1;
Var a, i, n, k: integer;
Begin
Write('Введите количество чисел последовательности: ');
readln(n);
k:=0;
For i:=1 to n do begin
readln (a);
if (a mod 6 =0) then k:=k+a;
end;
Writeln('Сумма чисел кратных 6 - ',k);
End.
mistermen009:
а что именно в окне вывода должно написать
Автор ответа:
0
var
size, num, sum, i: integer;
begin
sum := 0;
read(size);
for i := 1 to size do
begin
read(num);
if num mod 6 = 0 then
inc(sum, num)
end;
write(sum)
end.
Похожие вопросы
Предмет: Русский язык,
автор: tanic183
Предмет: Другие предметы,
автор: NikolayZubov
Предмет: Русский язык,
автор: Гайдар05
Предмет: Математика,
автор: vigxgxxhx
Предмет: Математика,
автор: 1Выбериник