Задание:
Составить программу рассечата отнашения чисел а и б с округлением результата. ПоскальABC
Решение:
programm njknk; var a,b,c: real; beginreadln (a,b); if b<>0 then beginc: =a/b; writeln ('c',a: 10:0); end; else writeln ('error'); end.
Знаете другой ответ?