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