Даны два числа. Подсчитать их частное. Var x,y,z: Real; - описываем переменные begin writeln ('введите слагаемые'); - выводим пояснение read (x,y); - вводим значение переменных (делимое и делитель) z:=x/y; - выполняем подсчёт. writeln (z); - выводим частное. end. - заканчиваем программу.
1 год назад