1.
import random
a = random.randint(1,15)
b = random.randint(1,15)
if a == b:
a = 0
b = 0
print(a,b)
2.
import random
n = random.randint(1,999)
a = ""
b = ""
n = str(n)
if len(n) == 1:
a = "однозначное"
elif len(n) == 2:
a = "двухзначное"
elif len(n) == 3:
a = "трёхзначное"
n = int(n)
if n % 2 == 0:
b = "чётное"
else:
b = "нечётное"
print(a + " " + b + " число")
3.
n = int(input("Введите номер дня недели: "))
if n == 1:
print("Понедельник")
elif n == 2:
print("Вторник")
elif n == 3:
print("Среда")
elif n == 4:
print("Четверг")
elif n == 5:
print("Пятница")
elif n == 6:
print("Суббота")
elif n == 7:
print("Воскресенье")
else:
print("Такого дня недели нет")
begin
var n := Abs(ReadInteger('Введите целое число:'));
var yes := False;
var n1 := n mod 10;
n := n div 10;
while n > 0 do
begin
var n2 := n mod 10;
if n1 = n2 then
begin
yes := True;
break
end;
n := n div 10;
n1 := n2
end;
if yes then Print('Верно')
else Print('Неверно')
end.
begin
var s := Abs(ReadInteger('Введите целое число:')).ToString;
if s.Pairwise.Any(t->t[0]=t[1]) then Print('Верно')
else Print('Неверно')
end.
var a : array [1..10, 1..10] of integer ;
i,j,n,m:byte;
min,s:integer;
begin
s:=1;
randomize;
writeln('Введи кол-во строк(<10)');
readln(n);
writeln('Введи кол-во столбцов(<10)');
readln(m);
for j:=1 to m do
for i:=1 to n do begin
a[i,j]:=random(100);
gotoxy((i-1)*5+1,j+5);
writeln(a[i,j]);
end;
for i:=1 to m do begin
min:=a[1,i];
for j:=1 to n do if a[j,i]<min then min:=a[j,i];
gotoxy((i-1)*3+1,i+12);
write('min в ',i,' строке равен ',min);
s:=min*s;
end;
gotoxy(1,23);
writeln(s);
end.