Question

Задание в Паскаль:
1)найти сумму, произведение, частное а и в
2)квадрат суммы cv:=sqr(a+b)
3) целое частное thast:=a div b
4) целый остаток ost:=a mod b

Answer 1

Ответ:

program calc;

var a,b,thast,ost: integer; c,cv: real;

begin

writeln('введи 2 числа через робел');read (a,b);

c:=a-b;

writeln ('Разность=',c);

c:=a+b;

writeln ('Сумма=',c);

c:=a*b;

writeln ('Произведение=',c);

c:=a/b;

writeln ('Частное=',c);

cv:=sqr(a+b);

writeln ('Квадрат суммы=',cv);

thast:=a div b;

writeln ('Целое частное=',thast);

ost:=a mod b;

writeln ('Целый остаток=',ost);

end.