2)
var s1, s2:string;
i: integer;
begin
s1:='symbols';
s2:='';
i:=2;
while i <= length(s1) do
begin
s2 += s1[i];
i += 2;
end;
writeln(s2);
end.
4)
var sWord: string;
i, j: integer;
begin
sWord:='moloko';
for i:=1 to length(sWord) do
for j:=length(sWord) downto i+1 do
if sWord[j] = sWord[i] then
delete(sWord, j, 1);
write(sWord);
end.
5)
var text: string;
begin
text:='Напечатает только это, а это не напечатает';
writeln(LeftStr(text, pos(',', text) - 1));
end.
5б:
x = input("введите число: ")
y = ""
for i in range(len(x)):
y += (x[-i])
if x==y:
print ("Перевертыш")
else:
print ("Нет")
6:
x1 = int(input("x1: "))
y1 = int(input("y1: "))
x2 = int(input("x2: "))
y2 = int(input("y2: "))
R1 = (x1**2 + y2**2)**(0.5)
R2 = (x2**2 + y2**2)**(0.5)
if R1 > R2:
print ("2 ближе")
elif R2>R1:
print ("1 ближе")
else:
print("одинаково")
7:
a = int(input("1 сторона: "))
b = int(input("2 сторона: "))
c = int(input("3 сторона: "))
if (a>=b+c) or (b>=a+c) or (c>=b+a):
print("не существует")
elif a==b and b==c:
print ("Равносторонний")
elif a==b or b==c or a==c:
print ("Равнобедренный")
else:
print("Существует")
Объяснение:
Там все понятно
Чтобы понять, что дальше делать, проще всего посмотреть на единицы измерения. В данном случае, чтобы получились секунды, нужно, чтобы сократились биты, поэтому мы делим.
64000/16384 = 3,90625 с