Var H1:array[1..5] of integer;
H2:array[1..8] of integer;
N1:array[1..5] of integer;
N2:array[1..8] of integer;
i, j:integer;
begin
randomize;
for i:=1 to 5 do {заполняем массивы}
begin
H1[i]:=random(10);
N1[i]:=random(10);
end;
for i:=1 to 8 do
begin
H2[i]:=random(10);
N2[i]:=random(10);
end;
for i:=1 to 5 do {сравниваем продукцию}
for j:=1 to 8 do
if N1[i]=N2[j] then writeln(i, ' и ', j, ' Выпускают одинаковую продукц.');
write('H1 ');{выводим массивы}
for i:=1 to 5 do
write(H1[i], ' ');
writeln;
write('N1 ');
for i:=1 to 5 do
write(n1[i], ' ');
writeln;
write('H2 ');
for i:=1 to 8 do
write(H2[i], ' ');
writeln;
write('N2 ');
for i:=1 to 8 do
write(N2[i], ' ');
writeln;
end.
3) 20
4)10
На другие ответить не могу, т.к. совершенно непонятен код. Перечитайте задание
Ответ: Объяснение:
простой пример: создать файл с именем cmd.cmd, написать в нем следующие команды:
---------------
@echo off
echo @echo off
echo pause
-----------------
сохранить, затем запустить из командной строки:
cmd.cmd > cmd2.cmd
всё что выводилось на экран будет выводиться в файл с именем cmd2.cmd
файлы можно называть как вам нравится важен знак ">" - перенаправления вывода и в начале "@echo off
" для отключения лишнего вывода
I=1,44Мбайт=1474,56Кбайт=1509949,44байт=12079595,52бит
Var
a, b, c: real;
begin
writeln('Введите числа a, b, c');
readln(a, b, c);
if (sqr(a) = sqr(b) + sqr(c)) or (sqr(b) = sqr(a) + sqr(c)) or (sqr(c) = sqr(a) + sqr(b)) then
writeln('Данные числа являются пифагоровым тройками')
else
writeln('Данные числа не являются пифагоровым тройками');
end.