Округление ограничение по времени ** тест 2 секунды ограничение по памяти ** тест 64...

+645 голосов
5.2m просмотров

Округление ограничение по времени на тест 2 секунды ограничение по памяти на тест 64 мегабайта ввод стандартный ввод вывод стандартный вывод Даны целые числа A и B. Выведите их частное: с округлением до целого; с округлением до 2 знаков после запятой; с округлением до 6 знаков после запятой; с округлением до 10 знаков после запятой. Входные данные Ввод содержит целые числа A и B (1 ≤ A, B ≤ 1000). Выходные данные Выведите в отдельных строках одно целое и три вещественных числа — значения с необходимым округлением. Примеры входные данные 22 7 выходные данные 3 3.14 3.142857 3.1428571429 входные данные 1 8 выходные данные 0 0.13 0.125000 0.1250000000


Информатика (26 баллов) | 5.2m просмотров
Дан 1 ответ
+156 голосов

PascalABC.NET:

  • ##
  • var (a,b) := ReadInteger2;
  • var c := a/b;
  • Writeln(c:1:0);
  • Writeln(c:1:2);
  • Writeln(c:1:6);
  • Write(c:1:10)
(3.7k баллов)
+130

Почти для любой разновидности pascal (в том числе для всех версий PABC):
var a, b: word; c: real;
begin
Read(a,b);
c := a/b;
Writeln(c:1:0);
Writeln(c:1:2);
Writeln(c:1:6);
Write(c:1:10)
end.

+117

А как его изменить для PascalABC.NET 3.2 что бы работал?