Ответ:
1) 4; 2) 6; 3) 1; 4) 5; 5) 2; 6) 8; 7) 9; 8) 3; 9) 7.
Var s:real; k:integer;
begin
s:=50;
k:=0;
while s<2000 do
begin
k:=k+1;
s:=s+0.1*s;
end;
writeln(k);
end.
Результат:
39
Сохранить- то что надо сберечь в данный момент
Сохранить как - это имя придумать или сохранить на рабочий стол или в любую другую ПАПКУ
№1-512000/128 вот и ответ
№2 100/20 =50*32 вот ответ