// PascalABC.NET 3.1, сборка 1201 от 18.03.2016 begin var a,b:real; Write('Введите два числа через пробел: '); Read(a,b); if a>b then Writeln(a,'>',b,', максимум равен ',a) else if a<b then Writeln(a,'<',b,', максимум равен ',b) else Writeln('Веденные числа равны') end.
Тестовые решения: Введите два числа через пробел: 36.4 32.15 36.4>32.15, максимум равен 36.4
Введите два числа через пробел: -46.46 -18.54 -46.46<-18.54, максимум равен -18.54
Введите два числа через пробел: 38.0 38 Веденные числа равны
end_num = 79 for n in 1..5 for i in 0..2**n-1 s = ("000000000000000000000000000000" + i.to_s(2))[-n..-1] start_num = 7 log = start_num.to_s for k in 0..s.size-1
start_num, log = f0(start_num, log) if s[k] == "0" start_num, log = f1(start_num, log) if s[k] == "1" # break if start_num > end_num end # p [start_num, log, s, n] if start_num == end_num then log += " = " + end_num.to_s p log end end end
специальные символы
латиские прописные
строчные буквы