1 программа:
var x, y, t:integer;
begin
for x:=3 to 15 do begin
writeln('x = ', x);
t := x - 2;
y := 7*t*3-6*t+10;
writeln('y = ', y);
writeln('');
end;
end.
2 программа:
const pass ='45xlua';
var x:string;
a:boolean;
begin
a:= false;
while a<>true do begin
writeln('Введите пароль');
readln(x);
if x = pass then begin
a:=true;
writeln('Пароль верный');
end
else
writeln('Пароль неверный, введите еще раз');
writeln('');
end;
end.
4 программа:
var a, a1, a2, x, kol:integer;
begin
writeln('Введите четырёхзначное число');
readln(a);
x := a;
while x<>0 do begin
x:= x div 10;
kol:= kol + 1;
end;
if (kol = 4) then begin
a1 := a div 100;
a2:= a mod 100;
writeln(a1+a2);
end
else
writeln('Число не является четырёхзначным');
end.
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 - вернем строку, которую нужно перевести
a = int(input())
total = a
while a != 0:
a = int(input())
if a == 0:
break
total *= a
print(total)
Объяснение: