A:=1;m:=147;s:=a∗m
При выполнении оператора a:=1 в ячейку оперативной памяти компьютера с именем a заносится значение
; при выполнении оператора m:=147 в ячейку оперативной памяти компьютера с именем m заносится значение
. При выполнении оператора s:=a∗m значения ячеек оперативной памяти с именами a и m переносятся в процессор, где над ними выполняется операция умножения. Полученный результат заносится в ячейку оперативной памяти с именем
.
2. Почти ничего не меня получим код для цикла while:
var
i, n, k: integer;
begin
i := 2;
readln(n);
while i <= n div 2 do begin
if (n mod i) = 0 then k := i;
i:=i+1;
end;
writeln('наибольший делитель ', n, ' = ', k);
end.
3. Аналогично для цикла Repeat:
var
i, n, k: integer;
begin
i := 2;
readln(n);
repeat
if (n mod i) = 0 then k := i;
i:=i+1;
until i> n div 2;
writeln('наибольший делитель ', n, ' = ', k);
end.