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

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

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

х+54=х+у

х-х+54=у

у=54(ор)-во 2-ой корзине

х=54+38=92(ор)- в 1-ой корзине

92-27=65(ор)- в 3-ей корзине.

 

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

2^i = 128

i = 7 бит

800 * 7 = 5600 бит

5600 : 8 = 700 байт

700 : 1024 = 0,684 килобайт.

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

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

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.

Больше вопросов по информатике