PascalВыделить код
1
2
3
4
5
6
7
8
9
10
11
12
var s:string;
len,i,n:integer;
begin
write ('Введите строку:'); readln (s);
write ('введите N:'); readln(n);
len:=length(s);
if len>n then s:=copy (s,len-n+1,len-n)
else if len<n then for i:=len+1 to n do insert('.',s,1);
writeln ('Итоговая строка: ');
write (s);
readln;
end.
Введите строку:qwertyuiopa
введите N:5
Итоговая строка:
uiopa
Введите строку:abrik
введите N:10
Итоговая строка:PascalВыделить код
1
2
3
4
5
6
7
8
9
10
11
12
var s:string;
len,i,n:integer;
begin
write ('Введите строку:'); readln (s);
write ('введите N:'); readln(n);
len:=length(s);
if len>n then s:=copy (s,len-n+1,len-n)
else if len<n then for i:=len+1 to n do insert('.',s,1);
writeln ('Итоговая строка: ');
write (s);
readln;
end.
Введите строку:qwertyuiopa
введите N:5
Итоговая строка:
uiopa
Введите строку:abrik
введите N:10
Итоговая строка:
1.Составить программу с использованием процедуры нахождения наибольшего общего делителя и наименьшего общего кратного двух натуральных чисел.
НОК(А, В)= (А*В)/НОД(А,В)
2.Составить программу с использованием процедуры для нахождения чисел из интервала [M, N], имеющих наибольшее количество делителей.
3.Найти количество цифр в заданном натуральном числе. Написать программу с исполь-зованием функции
4.Написать программу с использованием процедуры, которая находит и выводит все четырех-значные числа вида abcd, для которых выполняется: ab – cd = a + b + c + d, где a, b, c, d – разные цифры.
5.В заданной матрице А(n*n) найти максимум из всех минимальных элементов матрицы по строкам. Использовать процедуры ввода и вывода элементов матрицы по строкам.
6.Натуральное число, в записи которого n цифр, называется числом Амстронга, если сумма его цифр, возведенная в степень n, равна самому числу. Найти все эти числа от 1 до k. Составить программу с использованием процедуры
Відповідь:
Python
a=int(input("Введіть а:\n"))
b=int(input("Введіть b:\n"))
c=int(input("Введіть c:\n"))
d=int(input("Введіть d:\n"))
if(a*b!=c*d):
print("так")
else:
print("ні")