program t;
var
a,c:real;
i:integer;
begin
i:=1;
a:=1000;
write('1');
while(i<>6) do
begin
a:=a+a*(2*0.01);
inc(i);
end;
writeln('Спустя ',i,' месяцев =',a:4:2);
a:=1000;
i:=1;
write('2');
while(true) do
begin
a:=a+a*(2*0.01);
inc(i);
if(a>1200)then begin writeln('Через ',i); break; end;
end;
a:=1000;
c:=0;
i:=1;
write('3');
while(true) do
begin
c:=a*(2*0.01);
a:=a+c;
inc(i);
if(c>50) then begin writeln('через ',i,' месяцев'); break; end;
end;
end.
Ответ: Всего 5 пунктов
1)прием и первичную обработку документов→
2)предварительное рассмотрение и распределение документов→
3)регистрацию→
4)рассмотрение документов руководством→
5)передачу на исполнение.
Выведутся все числа от 2 до 100
Var a, b, n, i:integer;
s :array [1..10] of integer;
begin
read (n);{Размер массива}
for i:=1 to n do
begin
s[i]:=-50+random(99);
write (s[i],' ');
end;
end.
<em><u>P.S. Надеюсь на благодарность и лучший ответ.</u></em>
var m, n, k, r, sum : integer;
begin
write('Введите цену яблок: '); read(r);
write('Введите цену апельсинов: '); read(k);
write('Введите кг яблок: '); read(m);
write('Введите кг апельсинов: '); read(n);
sum := r*m + k*n;
write('Общая стоимость покупки: ',sum);
end.