Составить программу для Паскаля. Запросить у пользователя два числа и вывести на экран результат суммы, разности, произведения и частного числа этих чисел полным ответом.
program task; var a,b:integer; begin write('a='); readln(a); write('b='); readln(b); writeln; writeln(a,'+',b,'=',a+b); writeln(a,'-',b,'=',a-b); writeln(a,'*',b,'=',a*b); write(a,'/',b,'='); if b<>0 then writeln(a/b) else writeln('division by zero'); readln; end.
Answers & Comments
program task;
var a,b:integer;
begin
write('a=');
readln(a);
write('b=');
readln(b);
writeln;
writeln(a,'+',b,'=',a+b);
writeln(a,'-',b,'=',a-b);
writeln(a,'*',b,'=',a*b);
write(a,'/',b,'=');
if b<>0 then
writeln(a/b)
else
writeln('division by zero');
readln;
end.