Написать программу: в массиве из 10 вводимых с клавиатуры чисел подсчитать количество чисел кратных первому элементу, но не кратных последнему элементу.

276

323

Посмотреть ответы 2

Ответы на вопрос:

aibekauezhanme

Информатика

4,5(42 оценок)

var

numbers: array[1..10] of integer;

i, first, last, count, num: integer;

begin

writeln('введите 10 чисел');

for i : = 1 to 10 do

readln(numbers[i]);

first : = numbers[1];

last : = numbers[10];

for i : = 1 to 10 do begin

num : = numbers[i];

if (num > = first) and (num mod first = 0) then

if (num < last) or (num mod last < > 0) then

count : = count + 1;

end;

writeln(count);

end.

Evildevil2

Информатика

4,6(22 оценок)

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