var
a,b,i,S:integer;
x: array[1..100] of integer;
begin
for i:=1 to 31 do
begin
x[i]:=random(1001);
write(x[i]:4);
end;
writeln;
readln(S);
writeln;
for i:=1 to 31 do
begin
if x[i]>S then
write(i:4);
end;
end.
Не знаю как с помощью таблицы,но у меня получился ответ ДХБА
Visual BasicВыделить код
Option Explicit
Function Min_3(a As Variant, b As Variant, c As Variant) As Variant
Min_3 = a
If a > b Then Min_3 = b
If Min_3 > c Then Min_3 = c
End Function
Private Sub Form_Activate()
Dim a As Integer, b As Integer, c As Integer
a = Val(InputBox("Введите число"))
b = Val(InputBox("Введите число"))
c = Val(InputBox("Введите число"))
Print "Наименьшее из чисел " & a & ", " & b & ", " & c & " - число " & Min_3(a, b, c)
End Sub
<span>n = int(input('n ='))
m = int(input('m ='))
if n%2<span>:
</span> for i in range(n,m+1,2)<span>:
</span> print(i,'**2 = ',i**2)
else<span>:
</span> for i in range(n+1, m+1, 2)<span>:
</span> print(i, '**2 = ', i ** 2)</span>