40 БАЛЛОВ! напишите программу которая в последовательности натуральных чисел определяет сумму чисел кратных 6 количество чисел 70 генерирутся случайным образом программа должна вывести одно число сумму чисел кратных 6
Приложения:
huston81:
какой язык?
Ответы
Ответ дал:
1
Ответ:
Pascal
Объяснение:
const
n = 70;
var
i, summa: integer;
a: array of integer;
begin
SetLength(a, n + 1);
randomize;
for i := 1 to n do
begin
a[i] := random(1000);
if a[i] mod 6 = 0 then summa := summa + a[i];
end;
WriteLn(summa);
end.
Вас заинтересует
1 год назад
1 год назад
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад
8 лет назад