Информатика, вопрос опубликован 10.03.2019 12:39 Aрiшkа

Pascalabc.net, обязательно через массивы, . напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел, кратных 6 и оканчивающихся на 6. программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). количество чисел не превышает 100. введённые числа не превышают 300. программа должна вывести одно число: сумму всех чисел, кратных 6 и оканчивающихся на 6.

Ответы
Ответ добавил: Гость

№1

(a4+b4)/2

№2

[tex]a5+b5\\ b6+c6[/tex]

Ответ добавил: Гость

1)высшие государственные должности в золотой орде

2)верно/неверно

3)акорды и абулхаира сходства и различия

4) что означает слово казах

5) какое значение имело образование казахского ханства

Ответ добавил: Гость

как вариант с динамическим массивом и вычислением за один

var

    d : array of integer : = new integer[0];

    a, s : integer;

begin

    repeat

        read(a);

        if (a < = 300) and (a > 0) then begin

            setlength(d, d.length+1);

            d[d.length-1] : = a;

            if (a mod 10 = 6) and (a mod 6 = 0) then s += a;

        end;

    until (a = 0) or (d.length = 100);

    writeln(s);

end.

Ответ добавил: Гость

const n=100;

var i,sum: integer;

    a: array[1..n] of integer;

begin

  for i: =1 to n do begin

    readln(a[i]);

    if(a[i] = 0) then

      break;

  end;

  for i: =1 to n do begin

    if(a[i] < > 0) then begin

      if(a[i] mod 6 = 0) and (a[i] mod 10 = 6) then

        sum: =sum + a[i];

    end;

  end;

  writeln(sum);

end.

Больше вопросов по информатике
Предмет
Информатика, опубликовано 16.03.2019 01:50