Какой текст будет выведен на экран в результате выполнения следующего фрагмента программы? s: ='example'; s0: ='abc'; delete(s, 1, 3); writeln(s);

Delete   (процедура) у даляет подстроку из строки. в твоем случае delete(s, i, k) s-исходная строка,i - с какой позиции k - сколько символов удалять. форма записи delete(s,1,3) означает из строки s, убрать с первого по третий символ (строку с первого элемента по третий).writeln(s) => ' mple' p.s.:   s0: ='abc'; - это действительно лишнее : )

 

var b,i : integer;

a: array[1..10] of integer;

begin

for i: =1 to 10 do

readln(a[i]);

for i: =1 to 10 do begin

if (a[i] mod 5=0) or (a[i] mod 7 =0) or (a[i] div 10=1) or (a[i] mod 10 =1) then b: =b+1; end;

writeln (b);

end.

 

 

var b,c,i : integer

a: array[1..10] of integer;

begin

for i: =1 to 10 do

readln(a[i]);

for i: =1 to 10 do begin

if (a[i] mod 3=0) and (a[i] mod 2 = 0) and (a[i] div 10< > 0)and (a[i] div 100=0) then begin b: =b+a[i]; c: =c+1; end; end;

writeln(b/c);

end;

в редакторе word 2003

1. в меню вставка выберите команду объект. откроется диалоговое окно вставка объекта.

2. перейдите на вкладку создание из файла.

3. нажмите кнопку обзор, чтобы найти и выбрать файл таблицы excel. после того как в поле имя файла появится строка местоположения найденного файла, нажмите кнопку ок. таблица будет вставлена в документ как рисунок. вы можете изменять его размеры, перемещать и выполнять иные действия. если дважды щелкнуть мышью по рисунку таблицы, то вы сможете отредактировать исходные данные вашей таблицы прямо в документе word. при этом окно редактора изменится и примет вид программы excel. после редактирования исходных данных щелкните указателем мыши за пределами таблицы, чтобы вернуться в режим редактирования документа word.