Uses crt;
var a:Real; [тип Real присваиваем для того, чтобы число можно было делить]
Begin
Readln(a); [Вводим с клавиатуры число]
Writeln(a, ' м = ', а/1000, 'км.'); [программа сначала выводит данное ранее число, затем сразу делит его на 1000 и показывает результат]
End.
===== PascalABC.NET =====
begin
var s:= ReadlnString;
s.Substring(0,s.Length div 2).Println
end.
Да обычный вроде...как в чертёжнике. Uses robot; Вот так подключается, если не ошибаюсь.
сравниваешь первую и вторую цифры
затем вторую и третью
затем первую и третью
если есть одинаковые то ДА
если нет то НЕТ
Не Паскаль!!!!
1.44 *1024 = 1474.56 Кб * 1024 = 1509949,44 байт
1509949,44 байт - 80% = 301989,88 байт
301989,88 байт можно ещё записать