var s:string; i:integer; begin Write('Введите слово: '); Readln(s); for i:=Length(s) downto 1 do Insert(' ',s,i); Writeln('Результат: ',s) end.
Пример решения Введите слово: Паскаль Результат: П а с к а л ь
var s1,s2,s3:string; i:integer; begin Write('Введите первое слово: '); Readln(s1); Write('Введите второе слово той же длины: '); Readln(s2); s3:=''; for i:=1 to Length(s1) do s3:=s3+s1[i]+s2[i]; Writeln('Результат: ',s3) end.
Пример решения Введите первое слово: Корова Введите второе слово той же длины: собака Результат: Ксоорбоавкаа
// PascalABC.NET 3.0, сборка 1157 от 02.02.2016 begin var n:=ReadInteger('n='); if n<0 then Writeln(n,'! не определено: n<0') else if n=0 then Writeln('0!=1') else begin var p:BigInteger:=1; for var i:=2 to n do p*=i; Writeln(n,'!=',p) end end.
num1 = int(input("Input number 1: "))
while num1!=0:
num1//=2
if num1==3:
print(num1)
break
print(num1, ", ", end = "")
num2 = int(input("Input number 2: "))
while num2!=0:
num2//=2
if num2==8:
print(num2)
break
print(num2, ", ", end = "")
Объяснение: