Регистрация
vityastah
25.09.2022 21:23
Информатика
Есть ответ 👍

Решить pascal в массиве состоящем из 15 целых чисел заменить все числа кратные 3 на 0.

213
353
Посмотреть ответы 3

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

Натали190997
Натали190997
4,8(16 оценок)
Program al; const n=15; var a: array[1..n] of integer; i: integer; procedure zam; begin for i : = 1 to n do if a[i] mod 3=0  then a[i]: =0; end; begin writeln('vvedite massiv='); for i: =1 to n do readln(a[i]); zam; writeln('noviy massiv='); for i : = 1 to n do write (a[i]: 4); readln; end.
марусяice1
марусяice1
4,8(22 оценок)
Var a: array[1..15]of integer; i: integer; begin write('до:       '); for i: = 1 to 15 do   begin   a[i]: =random(15)+1;   write(a[i],' ');   if a[i] mod 3 = 0 then a[i]: =0   end; writeln; write('после: '); for i: = 1 to 15 do   write(a[i],' ') end.
kisa1756
kisa1756
4,5(25 оценок)

Отличается скоростью

В обычном алгоритме Евклида мы последовательно вычитаем из большего меньшее, пока они не станут равны.

В модифицированном мы берем остаток от деления большего на меньшее, пока одна из переменных не станет равной 0.

То есть если взять числа 36 и 48, то

Обычный алгоритм Евклида:

1) 48 - 36 = 12

2) 36 - 12 = 24

3) 24 - 12 = 12

4) Вывод 12

Модифицированный:

1) 48 %(mod) 36 = 12

2) 36 %(mod) 12 = 0

3) Вывод 12

Разница в 1 шаг из-за того, что числа маленькие, с большими числами разница в количестве шагов больше.

Популярно: Информатика