Числу в 16 системе счисления числу 13 буква. (В)
Program asd;
Const n=5;
m=4;
Var i,j,p:integer;
A:array[1..n,1..m] of integer;
BEGIN
For i:=1 to n do
begin
For j:=1 to m do
begin
A[i,j]:=Random(10);
Write(A[i,j]:3);
end;
Writeln;
end;
P:=1;
For i:=1 to n do
For j:=1 to m do
begin
if A[i,j]<>0 then p:=p*A[i,j];
end;
Writeln('Произведение ненулевых элементов массива: ',p);
<span>END.</span>
INPUT "a=", a
INPUT "b=", b
PRINT "s="; a ^ 2 - b ^ 2
END
<em><u>Тестовое решение:</u></em>
Y:\qbasic>QBASIC.EXE
a=10
b=8.5
s= 27.75
Чтобы продолжить, нажмите любую клавишу
Требуемая формула: К = НОК(N,W) / НОД(N,W)
Пример:
НОК(N,W) = НОК(10,35) = 70
НОД(N,W) = НОД(10,35) = 5
K = 70/5 = 14