Var i :integer;
begin
For i:=1 to 10 do
writeln(i,' ',sqr(i),' ',i*sqr(i));
<span>end. </span>
Var
a:array[1..10]of integer;
i,n:integer;
begin
for i:=1 to 10 do
begin
a[i]:=random(10)+1;
write(a[i],'; ');
end;
for i:=1 to 9 do
if a[i]<a[10] then
begin
n:=i;
break;
end;
writeln;
write('Ответ: ');
if n>0 then writeln(a[n]) else writeln(n);
<span>end. </span>
Нет, это запрещено уставом! Можешь нажаловаться.
1) Это книгопечатальщики. Раньше книги приходилось печатать чуть ли не ни в ручную. технологии не позволяли ((( а сейчас благодаря информ. технологиям и инф.обществу делать это стало довольно просто.