Выдаёт ошибку: операнды имеют неприводимые типы.где я ошиблась? (программа написана на языке pascal abc) program home; uses crt; var a: integer; b: real; begin writeln ('введите еденицу измереня: килограмм, миллиграмм, грамм, тонна, центнер'); readln (a); writeln ('введите число, которое нужно перевести в килограммы'); readln (b); if (a = 'килограмм') then writeln (b); if (a = 'миллиграмм') then begin b : = b / 1000000; writeln (b); end; if (a = 'грамм') then begin b: = b / 1000; writeln (b) end; if (a = 'тонна') then begin b: = b * 1000; writeln (b); end; if (a = 'центнер') then begin b: = b * 100; writeln (b); end; end.

Вы объявили переменную a как целочисленную, а потом спрашиваете с нее центнеры и тонны

Відповідь:

Microsoft Word (часто — MS Word, WinWord или просто Word) — текстовый процессор, предназначенный для создания, просмотра, редактирования и форматирования текстов статей, деловых бумаг, а также иных документов, с локальным применением простейших форм таблично-матричных алгоритмов. Выпускается корпорацией Microsoft в составе пакета Microsoft Office. Первая версия была написана Ричардом Броди (Richard Brodie) для IBM PC, использующих DOS, в 1983 году. Позднее выпускались версии для Apple Macintosh (1984), SCO UNIX и Microsoft Windows (1989). Текущей версией является Microsoft Office Word 2019 для Windows и macOS, а также веб-версия Word Online (Office Online), не требующая установки программы на компьютер.

Пояснення:

В n будем хранить количество чисел, которые ещё нужно вывести. a и b - предыдущее и текущее числа Фибоначчи. По определению, следующее число Фибоначчи равно сумме двух предыдущих, так что новое значение b будет a + b. Чтобы не заводить новую временную переменную, новое значение a можно будет найти, вычитая из нового b старое a, получится (a + b) - a = b.

Код процедуры:

procedure print_fib(n: integer);

var a, b, t: integer;

begin

   a := 0;

   b := 1;

   while n > 0 do

   begin

       write(b, ' ');

       b := a + b;

       a := b - a;

       n := n - 1;

   end;

end;

Пример основной программы:

begin

   print_fib(10)

end.

Вывод:

1 1 2 3 5 8 13 21 34 55