КР 10б

пройти тест

1) Определите, что будет напечатано в результате работы следующего фрагмента программы:

var n, s: integer;
begin
n := 1;
s := 0;
while n <= 101 do begin
s := s + 7;
n := n + 1
end;
write(s)
end.

2) В программе описан одномерный целочисленный массив A с индексами от 0 до 10. В приведенном ниже фрагменте программы массив сначала заполняется, а потом изменяется:

for i:=0 to 10 do
A[i]:= i + 1;
for i:=0 to 10 do
A[i]:= A[10-i];

Чему будут равны элементы этого массива?

1) 10 9 8 7 6 5 4 3 2 1 0
2) 11 10 9 8 7 6 5 4 3 2 1
3) 11 10 9 8 7 6 7 8 9 10 11
4) 10 9 8 7 6 5 6 7 8 9 10

3 Напишите программу:
Дано слово, заменить в нем все буквы «s» на «d»