Сколько единиц будет выведено на экран?

s := '123456';

while Length(s) > 0 do begin

Delete ( s, 1, 2 );

writeln ( '1' )

end;

3

Объяснение:

Процедура delete имеет следующий вид: delete([строка], [идекс], [количество]) - т.е. из строки [строка] с позиции [индекс] будет удалено [количество] символов. На твоём примере: пока длина строки s больше 0 с позиции 1 удаляем два символа и выводим на экран единицу. На первой итерации цикла строка "123456" превратится в строку "3456", на второй итерации в "56" и на последней, третей итерации в "". Итого, чтобы длина строки стала 0 потребовалось 3 итерации, т.е. на экран выведется три единицы

программа на языке pascal, успехов в учебе.

program pr;

var n,m,z,k,i,vm: integer;

begin

readln (n,m,z);

vm: =n*60+m;

i: =1;

while i< =vm do

begin

k: =k+1;

i: =i+z;

end;

writeln (k);

readln;

end.

var

  n,i,a: integer;

begin

  readln(n);

  for i: =1 to n do

  begin

  read(a);

  write(abs(a),' ');

end;

end.