// 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 Веденные числа равны
' QBASIC CONST n = 10 DIM a(1 TO n) AS DOUBLE, b(1 TO n) AS DOUBLE, x(1 TO n) AS DOUBLE RANDOMIZE TIMER CLS FOR i = 1 TO n a(i) = 50 * RND - 25 b(i) = 50 * RND - 25 IF a(i) <> 0 THEN x(i) = b(i) / a(i) ELSE x(i) = 0 END IF PRINT USING "###."; a(i); PRINT " * "; PRINT USING "###."; x(i); PRINT " = "; PRINT USING "###."; b(i) NEXT i
255000:16000=16 сек