Цитата:
Сообщение от Stifler
в трубо паскале
|
Что, дело совсем
труба?
Для целых чисел
a и
b
Код:
var
a,b,s,w,od,cd:integer;
p:longint;
d:real;
f:text;
begin
assign(f,'out.txt');
rewrite(f);
readln(a,b);
s:=a+b;
m:=a-b;
p:=a*b;
d:=a/b;
od:=a mod b;
cd:=a div b;
writeln(f,'a+b=',s,' a-b=',m,' a*b=',p,' a/b=',d:4:2);
writeln(f,'остаток от деления a на b =',od);
writeln(f,'целая часть от деления a на b=',cd);
close(f);
readln
end.
Для вещественных чисел из вашего списка операций доступны только сложение, вычитание, умножение и обычное деление, естественно, что для всех числовых переменных нужно определять тип REAL.