А вот и ошибочка! Вот алгоритм в исправленном виде!
var M, tons, kilos, grams: integer;begin write('Введите массу: '); read(M); // чтобы найти кол-во тонн, разделим нацело введенную массу // на 1000000 tons := M div 1000000; // div - деление нацело // чтобы найти кол-во килограмм, сначала возьмем остаток // деления на 100000, затем полученное число разделим // нацело на 1000. kilos := (M mod 100000) div 1000; // mod - остаток от деления // граммы - последние 3 цифры введенного числа grams := M mod 1000; writeln(tons, ' т. ', kilos, ' кг ', grams, ' г.');end.
Var M, tons, kilos, grams: integer; begin write('Введите массу: '); read(M); // чтобы найти кол-во тонн, разделим нацело введенную массу // на 1000000 tons := M div 1000000; // div - деление нацело // чтобы найти кол-во килограмм, сначала возьмем остаток // деления на 100000, затем полученное число разделим // нацело на 1000. kilos := (M mod 100000) div 1000; // mod - остаток от деления // граммы - последние 3 цифры введенного числа grams := M mod 1000; writeln(tons, ' т. ', kilos, ' кг ', grams, ' г.'); end.
Смотря что в этом файле, чем больше символов и картинок тем больше размер файла. А если например, маленький текст то и размер будет меньше. Удачи ;)