Модуль 3 задание 6

скидывал вовремя но видно не скинулось. инет может выключался. заметил только сегодня что нет моей работы на блоге этой.





Program Assignment_Statement (Output);

Var

x, y : Integer;

Begin

x := 14;

y := 3;

Writeln ('x=',x);

Writeln ('y=',y);

Writeln ('x+y=',x, ' + ',y, '=',x+y);

Writeln ('x-y=', x, ' - ',y, '=',x-y);

Writeln ('x*y=', x, ' * ',y, '=',x*y);

Writeln ('x/y=', x, ' / ',y, '=',x/y);

Writeln ('x div y=', x, ' div ',y, '=',x div y);

Writeln ('x mod y=', x, ' mod ',y, '=',x mod y)

End.

Пояснение:
Program-раздел имени программы, Assignment_Statement (Output)-имя программы,
Var- раздел описания переменных x,y; Integer- целый тип чисел,Begin- раздел операторов, x := 14- оператор присваивания переменной х, y := 3-оператор присваивания переменной у, Writeln ('x=',x)-вывод значения переменной х на экран,Writeln ('y=',y)- вывод значения переменной у на экран, Writeln ('x+y=',x, ' + ',y, '=',x+y)-вывод результата сложения переменных,Writeln ('x-y=', x, ' - ',y, '=',x-y)- вывод результата вычитания переменных,Writeln ('x*y=', x, ' * ',y, '=',x*y)- вывод результата умножения переменных,Writeln ('x/y=', x, ' / ',y, '=',x/y)- вывод результата деления переменных,Writeln ('x div y=', x, ' div ',y, '=',x div y)- вывод получения целой части от деления,Writeln ('x mod y=', x, ' mod ',y, '=',x mod y)-вывод получения остатка от целочисленного деления,End- конец