//Pascal
var
A: array [1..10] of byte;
i, Min, MinID: byte;
begin
randomize;
Min := 100;
for i := 1 to 10 do
begin
A[i] := random(20) + 1;
if A[i] < Min then
begin
Min := A[i];
MinID := i;
end;
write(A[i], ' ');
end;
writeln;
writeln('Минимальный элемент A[',MinID,'] = ', Min);
readln;
end.
Program P1;
var l,r,a,b:real;
begin
readln(l,a,b);
r:=l/(2*pi);
if a*a+b*b<r*r then writeln('YES')
else writeln('NO');
end.
Пример:
20 3 4
NO
Я такого еще не проходил. Не думаю что кто-то даст ответ. уже 11 минут висит вопрос.
Sub z()
n = InputBox("Введите троичное число")
Do
d = d + (n Mod 10) * 3 ^ i
i = i + 1
n = n \ 10
Loop Until n = 0
MsgBox ("Десятичное: " & d & "; восьмеричное: " & Oct(d))
d = 0
i = 0
n = InputBox("Введите восьмеричное число")
Do
d = d + (n Mod 10) * 8 ^ i
i = i + 1
n = n \ 10
Loop Until n = 0
x = d
Do
t = t & (x Mod 3)
x = x \ 3
Loop Until x = 0
t = StrReverse(t)
MsgBox ("Десятичное: " & d & "; троичное: " & t)
End Sub