var
c, k, n: integer;
begin
writeln('Введите процент: ');
readln(n);
while k < 100 do
begin
k := k + n;
inc(c);
end;
writeln(c * 12, ' мес.');
<span>end.</span>
Ближе всего ответ 2), хотя в реальной жизни все не настолько однозначно.
Var A :array [1..20] of integer ; i:integer;
begin
for i :=1 to 20 do
begin
a[i]:=random(-10,30);
write(a[i],'...');
end;
end.
Подготовить тесто,нагреть сковороду,смазать маслом сковороду,разлить тесто по поверхности сковороды,круговыми движениями придать форму круга,поставить на огонь примерно на 30 секунд,перевернуть блин,перенести блин на тарелку,смазать блин маслом,посыпать сахаром блин,повторить.