Программа должна переводить введенное число через клавиатуру из метра в километры

Uses crt;
var a:Real; [тип Real присваиваем для того, чтобы число можно было делить]
Begin
Readln(a); [Вводим с клавиатуры число]
Writeln(a, ' м = ', а/1000, 'км.'); [программа сначала выводит данное ранее число, затем сразу делит его на 1000 и показывает результат]
End.

ехнология создания электронных таблиц в MS Excel Цель: изучить инструменты ввода, редактирования, форматирования и обработки числовых данных в электронной таблице. Изучив данную тему, студент должен: иметь представление о; • технологиях обработки числовых данных в электронных таблицах; знать: • инструменты ввода, редактирования, форматирования и обработки числовых данных в электронной таблице; • принципы работы Мастера диаграмм; уметь: • форматировать ячейки таблицы; • выполнять простейшие вычисления и использовать элементарные функции в расчетах; • использовать относительную и абсолютную адресацию; • выполнять построение и форматирование диаграмм; • установить защиту рабочей книги; владеть навыками: • обработки информации в электронных таблицах; • построения различного вида диаграмм (графиков, гистограмм и др.) с мастера диаграмм Excel.

Объяснение:

Попробуй:

var

  a, chet, nechet : integer;

   

begin

  write('введите число: ');

  readln(a);

  while a > 0 do begin

      if (a mod 10) mod 2 = 0then chet += 1 else nechet += 1;

      a := a div 10;

  end;

  writeln('четных: ', chet);

  writeln('не четных: ', nechet);

end.

программа считает 0 как четное число. Если нужно что бы 0 не учитывался при подсчете то необходимо строку:

if (a mod 10) mod 2 = 0then chet += 1 else nechet += 1;

заменить на:

if a mod 10 <> 0 then if (a mod 10) mod 2 = 0then chet += 1 else nechet += 1;