1.Взять горшок
2.Поставить горшок.
3.взять землю
4.насыпать землю
5.вставить цветок.
ПОКА
Ответ:
program Delitel;
var
n, i, j, c, d: Integer;
a: array of Integer;
begin
Write ('Введите N: ');
ReadLn (n);
SetLength (a, n + 1);
for i := 1 to n do begin
c := 0;
for j := 1 to i do begin
if i mod j = 0 then
Inc (c);
end;
a [i] := c;
end;
c := 1;
for i := 1 to n do begin
if a [i] > a [c] then
c := i;
end;
WriteLn ('Число ', c, ' имеет ', a [c], ' делителей.');
ReadLn;
end.
Какое где фотография!?!?!!?
После выполнения фрагмента прграммы x будет равен 67
Как я понимаю а)а=53 и б)b= 67 - значения переменных а и b соответственно
в) а=50 г) b=106
При а=53 и b=67 x=120
При а=50 и b=106 x= - 324