WriteLn('Введите три числа'); ReadLn(A,B,C); if (A<=B)and(B<=C) then Write(A,' ',B,' ',C) else if (A<=C)and(C<=B) then Write(A,' ',C,' ',B) else if (B<=A)and(A<=C) then Write(B,' ',A,' ',C) else if (B<=C)and(C<=A) then Write(B,' ',C,' ',A) else if (C<=A)and(A<=B) then Write(C,' ',A,' ',B) else if (C<=B)and(B<=A) then Write(C,' ',B,' ',A) End.
Var a,b,c,D:real; Begin Write('a = ');ReadLn(a); Write('b = ');ReadLn(b); Write('c = ');ReadLn(c); D:=b*b-4*a*c; if D>=0 then Begin WriteLn('x = ',(-b-sqrt(D))/(2*a)); WriteLn('x = ',(-b+sqrt(D))/(2*a)); End else WriteLn('Действительных корней нет') End.
# Код на ruby 2.2.3p173 def zadanie(jump1, jump2) min = jump1 for i in 1..1000 next if (i*jump1)%jump2 == 0 or (i*jump2)%jump1 == 0
if min > (i*jump1)%jump2 min = (i*jump1)%jump2 p [min, "#{i} * #{jump1} - #{i*jump1/jump2} * #{jump2}"] end
if min > (i*jump2)%jump1 min = (i*jump2)%jump1 p [min, "#{i} * #{jump2} - #{i*jump2/jump1} * #{jump1}"] end end return min end # # Примеры применения p zadanie(33, 55)
2 - (Разговор по телефону).
⭐Если отметь как лучший!⭐