4 года назад

Объект, не относящийся к СУБД: А) запрос; Б) форма; В) ответ; Г) отчёт.

Знания

Информатика

1 ответ:

asmyshlyaev177 [30]4 года назад

0 0

Запрос__________________________

Читайте также

Тема: Обработка одномерных массивов Задан массив А(10). Сформировать из элементов массива А два массива В(5) и С(5), включая в п

ДаринаМС [7]

Turbo Pascal

USES CRT;
VAR A:array[1..10] of integer;
B:array[1..5] of integer;
C:array[1..5] of integer;
i,bx,cx:integer;

BEGIN
CLRSCR;
Randomize;

For i:=1 to 10 do
begin
A[i]:=1+random(50);
Write(A[i],' ');
end;

Writeln;

bx:=1; cx:=1;

for i:=1 to 10 do
if (i mod 2 = 0) then
begin
B[bx]:=A[i];
bx:=bx+1;
end
else
begin
C[cx]:=A[i];
cx:=cx+1;
end;

For i:=1 to 5 do
Write(B[i],' ');

Writeln;

For i:=1 to 5 do
Write(C[i],' ');

READLN;
END.<span>
</span>

0 0

4 года назад

2.Факториал числа.Составить программу Паскаль.

antsoshil [5]

Var N, F, i :integer;
begin
writeln('введите число');
ReadLN(N);
F:=1;
for i:=1 to N do F:=F*N;
write('факториал числа ',N,' = ',F);
end.

0 0

4 года назад

Алфавит некоторого языка состоит из 4 символов. Оцените информационный обьем сообщения в байтах длинной в 16 символов

Алина2610

Информационный обем равен 4 байта

0 0

3 года назад

Разведчик кодирует секретные сообщения, расставляя крестики и нолики в ячейки таблицы. Всего он может закодировать 512 сообщений

pano4ka [6]

Логарифм 512 со основанием 2 = 9

0 0

4 года назад

Помогите написать программу на ПАСКАЛЕ: даны 3 числа в порядке возрастания-стороны треугольника, вывести сообщение «этот треугол

мирамгуль

label ra,rb;

var a,b,c: integer;

begin

write('Введите сторону a: ');

readln(a);

ra: write('Введите сторону b: ');

readln(b);

if b>a then

begin

rb: write('Введите сторону c: ');

readln(c);

if c>b then begin

if sqr(c)=sqr(a)+sqr(b) then writeln('Этот треугольник - прямоугольный') else writeln('Этот треугольник - не прямоугольный');

end else begin writeln('Введите число больше, чем ',b); goto rb; end;

end else begin writeln('Введите число больше, чем ',a); goto ra; end;

end.

0 0

4 года назад

Прочитать ещё 2 ответа