Паскаль АВС:
Program Vareeenka;
uses crt;
var
x,y:real;
begin
writeln('*** Alphaeus is thinking... ***');
writeln('*** OK ***');
writeln();
write('Введите основание степени '); readln (x);
write('Введите показатель степени '); readln (y);
writeln('*** Вычисляю... ***');
writeln(power(x,y):8:2); ;
end.
program rost;
var h1,h2,h3: integer;
begin
write ('Введите рост трёх спортсменов');
read(h1,h2,h3);
writeln;
if (h1<h2) and (h2<h3) then
write ('По росту') else
write ('Не по росту');
end.
<span>Program matrica;
Uses crt;
Var a:array [0..8 , 0..8] of integer;
sum1,sum2,i,j:integer;
begin
randomize;
sum1:=0;
sum2:=0
for i:=1 to 8 do
begin
Writeln;
for j:=1 to 8 do
begin
a[i,,j]:=random(10);
if i=j then sum1:=sum1+a[i,j];
if i+j=9 then sum2:=sum2+a[i,j];
Write(a[i,j], ' ');
end;
end;
writeln('Сумма чисел первой диагонали -',sum1,' </span>'Сумма чисел второй диагонали<span>' ,sum2,');
end.</span>
1. select * from Название_таблицы order by Поле_с_датой
2. select * from <span>Название_таблицы where Имя_автора <> 'Беляев А.Р.' order by автор, год
3. delete from </span><span>Название_таблицы where номер_полки=5 and год<'01-01-1990'</span>