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