Uses crt; var a: real; [тип real присваиваем для того, чтобы число можно было делить] begin readln(a); [вводим с клавиатуры число] writeln(a, ' м = ', а/1000, 'км.'); [программа сначала выводит данное ранее число, затем сразу делит его на 1000 и показывает результат] end.
Спасибо
Ответ дал: Гость
паскаль же?
var s, x: string; c, n, err, i, d, k: integer; begin readln (s); n: =length(s); for i: =1 to n do begin
Популярные вопросы