Написать программу, которая бы по введенному номеру единицы измерения (1- килограмм, 2- миллиграмм, 3- грамм, 4- тонна, 5- центнер) и массе m выдавала соответствующее значение массы в килограммах. выполнить в паскале

Program massa;var m, a: real;     begin       writeln('Введите массу.');       readln(m);       writeln('Введите единицу измерения массы. 1 - килограмм, 2 - миллиграмм, 3 - грамм, 4 - тонна, 5 - центнер.');       readln(a);       writeln('Введённое вами значение равно ');        if a=1 then write(m, ' килограмм.');        if a=2 then write(m/1000000, ' килограмм.');        if a=3 then write(m/1000, ' килограмм.');        if a=4 then write(m*1000, ' килограмм.');        if a=5 then write(m*100, ' килограмм.');      end.

меее, немного с окончаниями напортачила, но если надо, то можно просто до кг сократить и всё будет ок

Обьясняется различие в размерах файлов тем, что разные кодировки используют разное кол-во памяти, к примеру обычный *.txt файл хранит просто упорядоченный набор символов, а *.rtf уже хранит такие характеристики как размер шрифта цвет выравнивание и много других параметров. Разные расширения текстовых данных сделаны для хранения максимального кол-ва данных в наименьшем возможном ко-во памяти (txt), и наоборот хранения текста в исходном виде с исходными характеристиками (rtf). Ну а размеры файлов можешь и сам посмотреть сделав эту лабу. Эхх... бывают же ленивые люди(((

Обьясняется различие в размерах файлов тем, что разные кодировки используют разное кол-во памяти, к примеру обычный *.txt файл хранит просто упорядоченный набор символов, а *.rtf уже хранит такие характеристики как размер шрифта цвет выравнивание и много других параметров. Разные расширения текстовых данных сделаны для хранения максимального кол-ва данных в наименьшем возможном ко-во памяти (txt), и наоборот хранения текста в исходном виде с исходными характеристиками (rtf). Ну а размеры файлов можешь и сам посмотреть сделав эту лабу. Эхх... бывают же ленивые люди(((