Код на python3:
def doWork1(): #Объявляем функцию для первого задания
for i in range(0, 11): #Цикл for для подстановки в умножения и текст
print(f"3 * {i} = " + str(3*i)) #Вывод задания
def doWork2(): #Второе задание
repeat = int(input("Число?> ")) #Спрашиваем у пользователя число
ans = 0 #Объявляем переменную ans
for i in range(1, repeat+1): #Начинаем суммировать через for
ans += i #Добавляем к ans переменную in
print(ans) #Выводим значение ans
sel = input() #Выбор задания
if sel == "1": #Если выбрано первое
doWork1() #функция первого задания
elif sel == "2": #Если второе
doWork2() #функция второго
else: #Если не первое и не второе
print("Введите номер задания(1 или 2)") #Поясняем
Удачи =)
1)
Program z1;
var i,j:integer;
a:array[1..3,1..4] of integer;
begin
for i:=1 to 3 do begin
for j:=1 to 4 do begin
a[i,j]:=random(101)-50;
write(a[i,j]:5);
end;
writeln();
end;
end.
2)
Program z2;
var i,j,max,min,sum:integer;
a:array[1..10] of integer;
begin
min:=1000;
for i:=1 to 10 do begin
a[i]:=random(41)-20;
print(a[i]);
sum:=sum+a[i];
if(a[i] > max) then max:=a[i];
if(a[i] < min) then min:=a[i];
end;
writeln();
writeln('Сумма: ',sum);
writeln('Максимальное: ',max);
writeln('Минимальное: ',min);
end.
//PascalABC.NET 3.4.2
begin
var num := readinteger();
if (num in [1000..9999]) then
begin
for var i := 1 to 4 do
if (num.ToString[i].ToDigit mod 2 <> 0) then
begin
write('нет');
exit;
end;
write('да');
end
else
write(' наверное число');
end.