var a,b,r,pr,chas:real;
begin
end.
writeln(' введите а');writeln('введите b');writeln(' результат=',r);writeln('результат=',pr);writeln('результат=',chas);writeln('результат=',a);read(b); read(a);a:=a+3;r:=a-b;pr:=a*bchas:=a/b;
Комментариев нет:
Отправить комментарий