Поставити у правильному порядку: вибрати значок програми увімкнути живлення монітора та системного блока - id315096520220320 от arinakirkot 20.03.2022 18:43

Question

Информатика: Поставити у правильному порядку: вибрати значок програми увімкнути живлення монітора та системного блока дочекатися завантаження вікна програми дочекатись, доки вказівник миші набере вигляду стрілки двічі клацнути кнопкою миші клацнути на кнопці пуск дочекатись, доки вікно програми закриється обрати кнопку завершення роботи дочекатись, поки індикатор на системному блоці не погасне у вікні програми виконати вказівку закрити дочекатись, доки відобразиться робочий стіл якщо не передбачено окремого

arinakirkot · Accepted Answer

Var dv,tr,pt,dv1,tr1,pt1,dv2,tr2,pt2 :real;

procedure nod( var dv,tr,pt,dv1,tr1,pt1,dv2,tr2,pt2 :real; );
var a:array[1..6] of real;
i : integer;
begin
dv1:=100;
tr1:=100;
pt1:=100;
for i:= low(a) to high (a) do begin
readln(a[i]);
repeat
if( (a[i] mod 2) =0) then begin
a[i]:=a[i]/2;
dv:=dv+1;
end
else if( ( a[i] mod 3)=0) then begin
a[i]:=a[i]/3;
tr:=tr+1;
end
else if ( ( a[i] mod 5)=0) then begin
a[i]:=a[i]/5;
pt:=pt+1;
end;

untill(a=1);
if dvif trif ptdv:=0;
tr:=0;
pt:=0;
end;
if dv1>0 then dv2:=dv1*2 else dv2:=1;
if tr1>0 then tr2:=tr1*3 else tr2:=1;
if pt1>0 then pt2:=pt1*5 else pt2:=1;
nod:=dv2*tr2*pt2;
writeln(nod);
end;
begin
nod( dv,tr,pt,dv1,tr1,pt1,dv2,tr2,pt2 );
end.

end;

MOGZ ответил