Переведите . 2048 байт в кбит 3 кбит в байт 1536 байт в кбит

Question

Информатика: Переведите . 2048 байт в кбит 3 кбит в байт 1536 байт в кбит

Утешитель · Accepted Answer

1. Уже в первой строке ошибка - отсутствует символ ";" в конце строки.
2. В строке № 8 ошибка, не объявленная переменная "a"

3. Это только ошибки в синтаксисе, после их исправления программа запускается, но работать так как нужно не будет. Ищем ошибки в алгоритме:
исправим стороку "for i := 1 to a do" на "for i := 1 to n do" и получим вывод всех делителей, но в условии задачи требуется вывести и их количество. Вот исправленный код программы:
var
n, i, a: integer;

begin
write('введите число');
read(n);
writeln('делители');
for i := 1 to n do
    if n mod i = 0 then begin
      writeln(i); a:=a+1;
    end;
    writeln('Делителей ',a);
end.

MOGZ ответил