Var A : array [1..2, 1..5] of integer;
i,j,pr:integer;
Begin
pr:=1;
Writeln('Ведите значения в массив');
for i:=1 to 2 do
for j:=1 to 5 do read(A[i,j]);
for i:=1 to 2 do
for j:=1 to 5 do
if ( (A[i,j] mod 2 = 0) and (A[i,j] mod 3 <> 0) ) then pr:=pr*A[i,j]; Writeln('Произведение = ',pr)
End.
Var ar:array of integer;
i,n:integer;
procedure FirstPr(ar:array of integer;n:integer);
var i,k:integer;
begin;
for i:=1 to n do
if ar[i]<=25 then inc(k);
writeln(k);
end;
procedure SecPr(ar:array of integer;n:integer);
var i,k:integer;
begin;
for i:=1 to n do
if (ar[i]>=40) and (ar[i]<=50) then inc(k);
writeln(k);
end;
begin;
randomize;
readln(n);
setlength(ar,n+1);
writeln('Array');
for i:=1 to n do
begin;
ar[i]:=random(0,50);
write(ar[i]:4);
end;
writeln;
FirstPr(ar,n);
SecPr(ar,n);
<span>end.</span>
В базе данных нужно создать форму и включить фильтр на графу клуб и спорт что бы высветилось только нужные тебе люди , также добавить отображение Фамилии
1100011101 - 797
10010 - 18
797:18=44,2(7)
//Pascal ввод с клавиатуры
var A, B: integer;
begin
write('Введите A, B = '); readln(A, B);
writeln(A+B);
end.
//Pascal ввод/вывод через текстовый файл
//input.txt должен находиться в папке с программой
var
A, B: integer;
t1, t2: text;
begin
assign(t1, 'input.txt');
assign(t2, 'output.txt');
reset(t1);
readln(t1, A, B);
close(t1);
rewrite(t2);
write(t2, A+B);
close(t2);
end.