! ! 9 класс
выполнить эти 5 заданий

Скину все

ИНФОРМАТИКА

29

Объяснение:

Из А в С, из С в Б, из Б в Е, меньше не нашел

program xxx;

  var i, n : integer;

begin

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

  readln (n);

  writeln('делители числа: ');

  for i : =1 to n do

    if n mod i = 0 then writeln (i)

end.

program xxx;

var s : string;

        а : integer;

begin

    writeln ('введите слово-');

    readln (s);

    а: = length(s)

    writeln ('длина слова=', a);

    readln

end.