2 Запишите, разделяя запятой, НОМЕРА строк (служебных слов, выражений), следуя последовательности, в какой они необходимы для записи опера- тора цикла WHILE: 1 do 2 логическое выражение 3 оператора тела цикла 4 while 3 Фрагмент программы записан неправильно! until 3 * n + 1> = 28 repeat n = n + 1; Запишите этот фрагмент без ошибок.
5 Какое значение будет иметь переменная S после выполнения операторов s = 1.2; n = 1; for i: = 2 to n do s = s + 1 / i;
6 Какое значение будет иметь переменная S после выполнения операторов s = 1.1; i: = 1; while (i <3) do begin i: = i + 1; s = s * i end;
begin
writeln('Введите букву');
readln(a);
case a of
'q': writeln('w');
'w': writeln('e');
'e': writeln('r');
'r': writeln('t');
't': writeln('y');
'y': writeln('u');
'u': writeln('i');
'i': writeln('o');
'o': writeln('p');
'p': writeln('a');
'a': writeln('s');
's': writeln('d');
'd': writeln('f');
'f': writeln('g');
'g': writeln('h');
'h': writeln('j');
'j': writeln('k');
'k': writeln('l');
'l': writeln('z');
'z': writeln('x');
'x': writeln('c');
'c': writeln('v');
'v': writeln('b');
'b': writeln('n');
'n': writeln('m');
'm': writeln('q');
end;
end.