2. Отметьте все правильные объявления массива в языке Паскаль.
var A[1..20] of integer;
var A: array [1..20] of integer;
var A: array [-8..10] of integer;
var A: array [-8..10];
var A[1..10];

6. Массив нужно заполнить именно так:
X = [12 9 6 3 0 -3]
Какой оператор надо поместить в тело цикла
for k:=1 to 6 do begin
...
end;
X[k]:= k;
X[k]:= 14 - 2*k;
X[k]:= 3*k - 15;
X[k]:= 3*(k - 1) + 6;
X[k]:= 15 - 3*k;

9. Массив заполнен числами:
A = [3 5 2 1 4]
Какое число выведет на экран оператор
write ( A[A[4]] );

10. Массив
X = [4 3 2 1 5]
обработан с цикла
for i:=1 to 5 do begin
X[i]:= X[i]+1
end;
Что выведен на экран оператор
write( X[3] );

1

a)

program pr;

var

s: string;

c: char;

i: integer;

begin

writeln('введите имя и фамилию в одной строке');

readln (s);

writeln('введите заданный символ');

readln (c);

for i: =1 to length(s) do if s[i]=c then writeln ('в строке найден заданный символ');

readln;

end.

б)

program pr;

var

s,n: string;

c: char;

i: integer;

begin

writeln('введите имя и фамилию в одной строке');

readln (s);

i: =1;

while s[i]< > ' ' do i: =i+1;

n: =copy(s,1,i-1);

writeln(n);

readln;

end.

в)

program pr;

var

s,n,f: string;

c: char;

i: integer;

begin

writeln('введите имя и фамилию в одной строке');

readln (s);

i: =1;

while s[i]< > ' ' do i: =i+1;

n: =copy(s,1,i-1);

f: =copy(s,i+1,length(s)-i+1);

writeln(n);

writeln(f);

readln;

end.

program pr;

var s: string;

begin

s: ='касіу ясь канюшыну';

delete (s,7,3);

insert ('ясь',s,7);

writeln (s);

readln;

end.

3

а)

program pr;

var

s: string;

begin

s: ='реки горы и болота';

delete (s,6,5); {удаляем включая пробел}

writeln (s);

readln;

end.

б)

program pr;

var

s: string;

begin

s: ='реки горы и болота';

delete(s,13,6);

s: =s+'озера';

writeln (s);

readln;

end.

program gf; var x: integer; beginwrite('положительные двухзначные числа: '); for x: =-99 to 99 doif (x< -9) and (x> -100) thenwrite(x, ' '); writeln; write( ' отрицательные двухзначные числа:   '); for x: =-99 to 99 doif (x> 9) and (x< 100) thenwrite(x, ' '); end.

1)через сеть интернет либо съемные носители 2)размножался в системе, выполнял нагрузку на цп до 100% 3)удалил с антивирусной программы 4)нужно ставить защиту на браузер и перед работы со съемным носителем проверять его на вирусы

read (n);

i : = 1;

repeat

  writeln(i*i);

  i : = i + 1;

untill i*i > n