Здравствуйте!
Зовут меня Алексеева Ольга Вячеславовна, но друзья обычно называют меня Оленькой. У меня много хобби и пристрастий: я люблю заниматься вышивкой гладью и вязанием на спицах, люблю читать, преимущественно детективы. Моя любимая книга детективного жанра - "Приключения Шерлока Холмса" Сэра Артура Конан Дойля. Еще я получаю огромное удовольствие от просмотра документальных фильмов. Больше всего мне нравится исторический сериал "Великая". Помимо этого я питаю слабость к классической музыке. Я восхищаюсь и с наслаждением слушаю Шопена и симфонии Моцарта. А что касается стиля в одежде - то здесь я предпочитаю удобный стиль "Кэжуал".
за внимание!
ответ: 110.
Объяснение:
Максимально подробно.
В начале программы переменная s равна 0, n - 10.
Далее идет цикл "for" от 0 до n, то есть от 0 до 10.
Цикл "for" - последовательность команд, которые программа будет выполнять какое-то количество раз (в данном случае 11 раз:
для "i" равного 0,1,2,3,4,5,6,7,8,9 и 10).
Последовательность команд описывается между словами begin и end:
if і = n-i then s:=s+A[i]+A[i+1];
Рассмотрим подробнее эту строчку. В ней проверяется равенство:
i = n-i
Если это равенство верно, то программа переходит к инструкции, описанной после слова then: s:=s+A[i]+A[i+1];
Если же неверно - программа переходит к следующему значению i.
n - число постоянное и нигде не меняется, оно равно 10, то есть условие выглядит так:
i = 10-i
Когда такое возможно? "i" у нас меняется от 0 до 10 включительно. Посмотрим. Для этого мысленно продумаем весь ход работы программы. В начале i равно 0. Смотрим условие:
0 = 10 - 0
Неверно. 0 не равно 10. Далее программа переходит к следующему i, то есть единице.
i=1: 1 = 10 - 1
Тоже неверно. 1 не равно 9.
i=2: 2 = 10 - 2 Неверно. 2 не равно 8.
i=3: 3 = 10 - 3 Неверно. 3 не равно 7.
i=4: 4 = 10 - 4 Неверно. 4 не равно 6.
i=5: 5 = 10 - 5
Верно. Если это равенство верно, то программа переходит к инструкции, описанной после слова then: s:=s+A[i]+A[i+1];
Здесь к переменной "s", которая изначально равна нулю, прибавляется сама s, то есть 0, и значение элементов массива "A" под индексами i и i+1.
i у нас равно 5.
Следовательно: s=0+A[5]+A[5+1]
Или s=0+A[5]+A[6].
Посмотрим на массив:
(0,10,20,30,40,50,60,70,80,90,100)
A[0]=0, A[1]=10.
Значит пятый элемент равен 50, а шестой - 60.
Следовательно наше выражение:
s=0+A[5]+A[6] = 0 + 50 + 60 = 110.
Но на этом работа программы не закончена.
Цикл будет выполняться до тех пор, пока "i" не станет равно 10.
Идем дальше.
i=6: 6 = 10 - 6 Неверно. 6 не равно 4.
i=7: 7 = 10 - 7 Неверно. 7 не равно 3.
i=8: 8 = 10 - 8 Неверно. 8 не равно 2.
i=9: 9 = 10 - 9 Неверно. 9 не равно 1.
i=10: 10 = 10 - 10 Неверно. 10 не равно 0.
Теперь "i" равно 10, цикл больше выполняться не будет.
ответ: 110.
program proga;
var st,st2:string;
i:Integer;
begin
writeln('Введите число');
readln(st);
for i:=1 to length(st) do begin
st2:=st[i];
write(st2,' ');
end;
end.
2 задача
program proga2;
var st,st2:string;
i,a:Integer;
begin
writeln('Введите возраст');
readln(a);
if a>120 then
writeln('Неверные данные');
if a=1 then
writeln(a,' год');
if (a>1) and (a<5) then
writeln(a,' года');
if((a mod 10 = 1) and (a div 10 <> 0 or 11 )) then writeln(a,' год');
if (a>=5) and (a mod 10 <> 2 or 3 or 4)and (a div 10 <> 10) then
writeln(a,' лет');
if (a<=5) and (a mod 10 = 2 or 3 or 4)and (a div 10 = 10) then writeln(a,' года ');
if(a>104) and (a<110)then writeln(a,' лет');
end.