Задание:
Паскаль! Помогите пожалуйста! В бублике 1 дырка, в кренделе 2. На сколько меньше дырок в А бубликах, чем в В кренделях. (А и В — случайные числа)
Решение:
Program p1; var A,B: integer; beginwriteln ('Enter A and B'); read (A,B); Writeln (2*B-A); end. В данном решении А и Б вводятся с клавиатурыилиprogram p1; var A,B: integer; beginrandomize; A: =random (100); writeln ('A=',A); B: =random (100); writeln ('B=',B); writeln (2*B-A); end. В данном случае вместо А и Б берутся случайные числа от 0 до 100 (можете поменять строчку random (100) для других диапозонов)
Знаете другой ответ?