Регистрация
ErmolinVI
25.07.2022 06:31
Информатика
Есть ответ 👍

Уисполнителя умножитель две команды которым присвоены номера
1. вычти 8
2. умножь на 3
запишите порядок команд в алгоритме получения из числа 7 числа 23, содержащем не более 5 команд

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

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

alanragibov02
alanragibov02
4,6(79 оценок)
Const a=10; type mas=array[1..a] of integer;         mas1=array[1..3] of byte; var r, q, p: mas;       x: mas1;       i: byte; procedure form(var r, q, p: mas); var sr, sq, sp: byte; begin sr: =0; sq: =0; sp: =0; for i: =1 to a do   begin   if (r[i]> =2) and (r[i]< =4) then sr: =sr+r[i];   if (q[i]> =2) and (r[i]< =4) then sq: =sq+r[i];   if (p[i]> =2) and (r[i]< =4) then sp: =sp+r[i];   end; x[1]: =sr; x[2]: =sq; x[3]: =sp; writeln('massiv x'); for i: =1 to 3 do write(x[i]: 3); end; begin randomize; for i: =1 to a do   begin   r[i]: =random(10);   q[i]: =random(10);   p[i]: =random(10);   end; writeln('massiv r'); for i: =1 to a do write(r[i]: 3); writeln; writeln('massiv q'); for i: =1 to a do write(q[i]: 3); writeln; writeln('massiv p'); for i: =1 to a do write(p[i]: 3); end.

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