Системы управления базами данных
<span>Примером может послужить Microsoft Access </span>
<span>Основные компоненты MS Access: </span>
<span>* построитель таблиц; </span>
<span>* построитель экранных форм; </span>
<span>* построитель SQL-запросов (язык SQL в MS Access не соответствует стандарту ANSI); </span>
<span>* построитель отчётов, выводимых на печать.</span>
Begin
m:=1;
k:=1;
read(n);
i:=1;
while i<>n do begin
k:=k+i;
m:=m*i;
i:=i+1;
end;
write(k,' ',m);
end.
Переменные, думаю, сами опишете)
uses crt;
var a:array[1..99,1..99] of integer;
m,n,s,i,j:integer;
begin
write('Введите m и n: ');
readln(m,n);
writeln('Исходная матрица: ');
for i:=1 to m do begin
for j:=1 to n do begin
a[i,j]:=random(10-(-10)+1)-10;
write(a[i,j]:3);
end;
writeln;
end;
s:=0;
for i:=1 to m do begin
for j:=1 to n do begin
if a[i,j]<0 then s:=s+1;
end;
if s=2 then begin writeln('Строка с двумя отрицательными элементами есть'); halt; end; {если нужная строка найдена, программа выдаёт надпись о её нахождении и немедленно завершается}
s:=0;
end;
writeln('Строки с двумя отрицательными элементами нет');
end.
Крипты, Услуги, Выполняй задания чтобы получать денег, как Appbonus, NVuti
program sorevnovaniya;
var a,b,c: integer;
begin
writeln ('Введите результаты соревнований');
readln (a,b,c);
if (a<b) and (c<b) then writeln (b, '-', 'результат',' ','победителя',' ', 'заплыва');
if (b<c) and (a<c) then writeln (c, '-', 'результат',' ','победителя',' ', 'заплыва');
if (b<a) and (c<a) then writeln (a, '-', 'результат',' ','победителя',' ', 'заплыва');
end.