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

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

  • Basic

    CLS

    sum=0 // сначала сумма равна 0

    Input kol //вводим количество чисел

    for i=1 to kol //запускаем цикл

    input x //вводим число

    if x mod 6 = 0 then sum=sum+x //если число кратно 6(остаток от деления на 6 равен 0)

    //то к сумме прибавляем это число

    next i

    Print sum // выводим сумму

  • Паскаль

    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.

Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *