def translate(inp: str, to: str):
if to == "dobosovski" :
return inp.replace("0", "A").replace("1", "B")
elif to == "feimosovski":
return inp.replace("A", "0").replace("B", "1")
return inp
print("перевод на добосовский: ")
dres = translate(input(), "dobosovski")
print("результат >>", dres)
print("перевод на феймосовский: ")
fres = translate(input(), "feimosovski")
print("результат >>", fres)
Объяснение:
функция translate принимает 2 параметра: inp и to
inp - строка, которую нужно перевести
to - на какой язык
если to == dobosovski, то меняем 0 на A, 1 на B
если to == feimosovski, A на 0, B на 1
если to не равен ни feimosovski, ни dobosovski - вернем строку, которую нужно перевести
Агрегація — термін, який має кілька значень. Ця сторінка значень містить посилання на статті про кожне з них.
Якщо ви потрапили сюди за внутрішнім посиланням, будь ласка, поверніться та виправте його так, щоб воно вказувало безпосередньо на потрібну статтю.
Агрега́ція або агрегува́ння (лат. aggregatio «приєднання») — процес об'єднання елементів в одну систему. Агрегація у хімії, збагаченні корисних копалин тощо — злипання частинок у багатокомпонентний утвір — агрегат. Результат агрегатування.
Агрегація у програмуванні — це вид композиції.
Агрегація формених елементів крові у медицині при різних патологічних станах, часто при тромбозах.
Агрегація (англ. Aggregation) у статистиці – об'єднання пов'язаних категорій, зазвичай в рамках загальної гілки ієрархії, що служить для надання інформації в більш широкому контексті, ніж той, в якому збираються докладні дан .[1]
Агрегування (нейронні мережі) — нелінійне зниження дискретизації шару штучної нейронної мережі.
1)
var
i,n:integer;
begin
readln(n);
for i:=1 to n do writeln(i*i);
end.
2)
var
i,n:integer;
begin
readln(n);
for i:=1 to 10 do writeln(i:2,'*',n,'=',i*n:3);
end.
3)
var
i,n: integer;
p: real;
begin
readln(n);
p := 1;
for i := 1 to n do p := p * i;
writeln(p:15:0);
end.
4)
var
i,n:integer;
begin
readln(n);
for i:=1 to n do if (i mod 2=0) then writeln(i);
end.
5)
var
i,n,k:integer;
begin
readln(n);
k:=0;
for i:=1 to n do if (i mod 15=0) then k:=k+1;
writeln(k);
end.