Объяснение:
Я тебе напишу основу
Program xz;
Var a,b,c:integer; r:real; если в формуле деления нет, тогда r будет в делении
begin
writeln('a=');
readln(a);
writeln('b=');
readln(b);
writeln('c=');
readln(c);
сюда свои формулы вписывешь
потом пишешь
writeln('r=',r)
end.
Объяснение:
Я тебе напишу основу
Program xz;
Var a,b,c:integer; r:real; если в формуле деления нет, тогда r будет в делении
begin
writeln('a=');
readln(a);
writeln('b=');
readln(b);
writeln('c=');
readln(c);
сюда свои формулы вписывешь
потом пишешь
writeln('r=',r)
end.