Question

Сколько строк напечатает программа: —var k, i: integer;beginfor k:=8 downto 1 dowriteln("Мне нравится язык программирования Pascal');end.а) 8б) 7B) 1г) 0​

Answer 1

Ответ:

a) 8

Объяснение:

k:=8 downto 1

Answer 2

В предоставленном вами коде есть ошибка в строке:

scssCopy code
writeln("Мне нравится язык программирования Pascal');

Открывающая кавычка не совпадает с закрывающей. Используется двойная кавычка в начале строки, но одиночная кавычка в конце строки. Это приведет к ошибке компиляции.

Правильный код должен выглядеть так:

pascalCopy code
var
  k, i: integer;
begin
  for k := 8 downto 1 do
    writeln('Мне нравится язык программирования Pascal');
end.

С учетом исправления, программа напечатает 8 строк, так как цикл for k := 8 downto 1 выполняется 8 раз (для значений k от 8 до 1).