Var q: Single; // Результат. Если число будет больше, то указать Double i: Single; // Число из которого необходимо получить результат. Если число будет больше, то указать Double p: Single; // Процент. Если процент будет всегда целым числом, то указать Byte begin writeln('Введите число => '); read(i); writeln('Введите процент, который хотите расcчитать из введенного числа => '); read(p); while p < 0 do begin writeln('Процент не может быть меньше нуля, введите новое значение => '); read(p); end; q:=(i / 100) * p; writeln('Ваш результат из числа => ', i, ', ', p, '% = ', q); end.
OPTION BASE 1 DIM a(10) AS SINGLE, b(10) AS SINGLE, x(10) AS SINGLE RANDOMIZE TIMER FOR i = 1 TO 10 a(i) = 30 * RND - 15 NEXT i FOR i = 1 TO 10 b(i) = 40 * RND - 20 NEXT i CLS PRINT "A", "B", "X" FOR i = 1 TO 10 IF a(i) = 0 THEN x(i) = 1E+10 ELSE x(i) = b(i) / a(i) END IF PRINT a(i), b(i), x(i) NEXT i
