Поделитесь своими знаниями, ответьте на вопрос:
3. Имеется два запоминающих устройства: одно ёмкостью 64 Мбайт, другое – 2048 Кбайт. Укажите суммарную ёмкость обоих устройств в Kбайт. ответ: . 4. Устройство, выполняющее все арифметические и логические операции и управляющее другими частями компьютера, называется А) Контроллером Б) клавиатурой В) монитором Г) процессором 5. Системные файлы имеют расширение… Аdoc, .txt Б).txt, .sys. В)sys, .bat Г).bat, .exe 6 Определите, какое из указанных имен файлов удовлетворяет маске c*s?.d?? А) class.d B) css.d C) classes.doc D)class.docx 7. В некотором каталоге хранился файл Газета, имевший полное имя C:\Сентябрь\Выпуск1\Газета. В этом каталоге создали подкаталог Вёрстка и переместили в созданный подкаталог файл Газета. Каково стало полное имя этого файла после перемещения? 1) C:\Сентябрь\Вёрстка\Газета 2) C:\Вёрстка\Газета 3) C:\Сентябрь\Выпуск1\Вёрстка\Газета 4) C:\Вёрстка\Сентябрь\Выпуск1\Газета
nmax = 99;
var
i, n, k, s: integer;
a: array[1..nmax] of integer;
begin
Randomize;
Write('Введите количество элементов массива (1-99)');
Readln(n);
Write('Введите число k ');
Readln(k);
Writeln('Исходный массив');
s := 0;
for i := 1 to n do
begin
a[i] := Random(98) + 1;
Write(a[i]:3);
if (a[i] mod k) = 0 then s := s + a[i]
end;
Writeln(#13#10, 'Сумма элементов, кратных ', k, ' равна ', s)
end.
Тестовое решение:
Введите количество элементов массива (1-99)12
Введите число k 3
Исходный массив
34 63 18 81 91 83 83 80 10 59 81 74
Сумма элементов, кратных 3 равна 243