Укажите способ выхода из полноэкранного показа презентации запущенной по непрерывному циклу. а)по щелчку мыши б)клавишей еnter в)сочетание ctrl+esc

ответ будет в) если тебе так нужно

ответ в) в)сочетание ctrl+esc

var a,b: char;

  i: integer;

  const stop='.';

begin

writeln('введите строку, содержащую латинские буквы');

  read(a);

  if (a=stop) then writeln('задан пустой текст')

  else

  begin

    while a< > stop do

      begin

        read(b);

        if (a> ='a')and(a< ='z') then a: =chr(ord(a)-32);

        write(a);

        a: =b;

      end;

  end;

readln;

readln;

end.

эта программа заменит все заглавные латинские буквы на прописные.(лучше указывайте тип , которое вы хотите)

Pascalabc.net 3.4.2, сборка 1881 от 19.11.2018 внимание! если программа не работает, обновите версию!

begin

  var a : = matrrandom(5, 3, 50, 100);

  a.println(4);

  var (p, i, j) : = a.elementswithindexes.minby(t -> t[0]);

  writeln('минимальный элемент a[', i + 1, ',', j + 1, ']=', p);

end.

пример

  64   54   96   76   96   59   68   95   63   78   51   75   68   56 100 минимальный элемент a[4,2]=51