Процедуры всегда перед прогр. нужно делать
1.А)
Во-втором через Open Office и Paint нельзя создать 3D модели
2.А) и C)
Ну, раз заменять предложение, то...)
var a: string;
begin
readln(a);
if (a = 'Не то предложение') then a := '...';
writeln(a);
<span>end.</span>
Program n1;
const n=30;
var a: array[1..n] of integer;
i,k,sum: integer;
sr: real;
begin
randomize;
sum:=0;
k:=0;
for i:=1 to n do
begin
a[i]:=random(101);
write(a[i],' ');
sum:=sum+a[i];
end;
sr:=sum/n;
writeln;
for i:=1 to n do if a[i]>sr then k:=k+1;
writeln(k);
end.
1 А) Автозаполнение порядкового номера(а1 а7)
Автозаполнение формул(Е2 Е7 С7 Е7
1)C1D2
2)C2C6