Чему будет равна переменная х в результате выполнения программы:var x:integer;beginx:=1;while x<20 dox:=x+3;writeln(x);end.​

Х=22

Объяснение:

Х=1+3=4

Х=4+3=7

Х=7+3=10

Х=10+3=13

Х=13+3=16

Х=16+3=19

19<20,поэтому делаем последний шаг

Х=19+3=22

ответ: 22

Объяснение:

x = 1

x = 1 + 3 = 4

x = 4 + 3 = 7

x = 7 + 3 = 10

x = 10 + 3 = 13

x = 13 + 3 = 16

x = 16 + 3 = 19

x = 19 + 3 = 22

Интернет – одно из самых удивительных изобретений 20-го века. Он дает безграничные возможности в отношении различных коммуникаций, получения и хранения нужной информации, направлении мультимедиа. Отношение к нему различных слоев населения неоднозначно, содержит даже диаметрально противоположные позиции, но огромное значение его в жизни современного человека не будет оспариваться никем.

Эта слайдовая презентация является результатом ученического исследования на тему влияния интернета на жизнь человека и на все общество в целом. На ее слайдах рассматриваются вопросы:

- Что же такое интернет,

- Использование интернета в жизни людей,

- Как интернет влияет на людей,

- Интернет для ребенка,

- Можем ли мы прожить без интернета,

- Интернет в отдельном школьном классе,

- Личное отношение автора к интернету.

А)
var    s:string;    mas:array ['a'..'z'] of longint;{индексы элементов соответствуют латинице}    c:char;    i:longint; begin      read(s);      for c:='a' to 'z' do{заполнение нулями элементов массива, для запоминания количества элементов в латинице}          mas[c]:=0;      for i:=1 to ord(s[0]) do{пробегаем по всей строке ord(s[0]) это количесвто элементов в строке (только паскаль)}          mas[s[i]]:=mas[s[i]]+1;      for c:='a' to 'z' do{пробегаем по массиву значений и выводим только неповторяющиеся}          if(mas[c]=1) then                       writeln(c); end.