Var
A,B:integer;
Begin
Write('Введите два числа: ');ReadLn(A,B);
if A<B then Write(A)
else Write(B)
End.
<u>PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var (m,n):=ReadInteger2('Количество строк и столбцов в массиве:');
Writeln('*** Исходный массив ***');
var a:=MatrRandom(m,n,-30,30);
a.Println(4); Writeln(4*a.ColCount*'-');
Writeln('*** Полученный массив ***');
for var i:=0 to m-1 do
for var j:=0 to n-1 do
if (i+j).IsEven then a[i,j]*=3
else a[i,j]:=a[i,j] div 2;
a.Println(4)
end.
1.
import math
def f(x):
y = 7*math.pow(math.sin(3*x+1),2)
return y
x = 20
while x<=70: print('x={0:.1f} y={1:.4f}'.format(x,f(x)))
x += 0.8
2.
a = int(input("a = "))
b = int(input("b = "))
ab = 1
if b>0: c = b
else: c = -b
for i in range(c):
ab = ab*a
if b<0: ab = 1/ab
print(a,"^",b,"=",ab,end = '')
3.n = int(input("n = "))
a1 = 1
a2 = 1
sp = [1, 1]
for i in range(1,n):
an = a1+a2
a1 = a2
a2 = an
sp = sp+[an]
print(sp)
4.
s = input("Bвeдитe строку:\n")
k = 0
for i in range(0,len(s)): if ord(s[i]) in range(ord('0'),ord('9')+1): k = k+1
if k==len(s): print(int(s)*int(s))
else: print("Не число")