Создать двумерный массив 3х3 заполнить случайными числами все числа которые больше 10 уменьшить в 2 раза

223

295

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

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

madinatrtyakov

Информатика

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

Вот процедура нахождения произведения цифр четырехзначного числа, написанная на языке алгол-60 real procedure prodig(n); value n; integer n; begin integer i,p; integer procedure mod(a,b); value a,b; integer a,b; begin mod: =a-a÷b×b end mod; p: =1; for i: =1 step 1 until 4 do begin p: =p×mod(n,10); n: =n÷10; end; prodig4: =p end prodig4;