profile

Опубликовано 5 лет назад по предмету Информатика от 0Clover0

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

 

(Pascal)

  1. Ответ
    Ответ дан Sky09

    uses crt;
    var a:array[1..300] of integer;
    i,s,n,k:integer;
    begin
    clrscr;
    s:=0;
    write('n=');
    read(n);
    for i:=1 to n do
    begin
    read(a[i]);
    if (a[i] mod 3=0) then s:=s+a[i];
    end;
    writeln('s=',s);
    end.

  2. Ответ
    Ответ дан Juned

    Program n1;
    Uses CRT;
    Var s,i: integer;
    begin
    ClrScr;
    Writeln('Введите последовательность. Для остановки введите 0 ');
    Repeat
    readln(i);
    If (i mod 7=0)or(i mod 10=0) then s:=s+i;
    until i=0;
    writeln('Сумма =',s);
    readln
    end.

Войдите или зарегистрируйтесь, чтобы добавить ответ или свой вопрос на сайт


Другие вопросы
xinaris
Физика - 5 дней назад

Задание : цепь постоянного тока содержит несколько резисторов, соединенных смешанно \///совпадает с индексом резистора, по которому проходит этот ток или на котором действует это напряжение. определить также мощность, потребляемую всей цепью, и расход электрической энергии цепью за 10 часов работы. построить потенциальную диаграмму любого контура, содержащего эдс.

Danon227
Биология - 3 недели назад

Соотнесите фазы мейоза и их характеристику. профаза 1 метафаза 1 анафаза 1 телофаза 1 профаза 2 метафаза 2 анафаза 2 телофаза 2 а)гомологичные хромосомы попарно располагаются на экваторе, формируется веретено деления б)хромосомы становятся видимыми, расхожление центриолей к полюсам. происходит коньюгация кроссинговер, ядерная оболочка исчезает в) формируется ядерная оболочка, веретено деления разрушается. образуется две клетки г)возникают хромосомные рекомбинации, гомологичные хромосомы, состоящие из 2 хроматин, расходятся к полюсам д) разрушается ядерная оболочка, формируется веретено деления, каждая хромосома состоит из двух хроматид е) хроматиды отходят к противоположным полюсам ж) формируется ядерная оболочка, цитокинез, образуется 4 новых клетки з)хромосомы располагаются в плоскости экватора прошу помогите пожалуйста (

Белка
Алгебра - 3 недели назад

9- 6-x95-x + 6-x2x5 пусть t= j6x-5 , + >0 dam-xer (n6x -9)}= t* ae otareu-da me2 6x- g= t* 6x= t +9 + 79 x = 112+1+k1281 : 56 s1242412 + n- 179 . 56 - 223.00038-061-

Хаааа
Математика - 1 месяц назад

150+150=?

Хаааа
Математика - 1 месяц назад

150+150=?


Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.