А1. Что из нижеперечисленного не входит в алфавит языка Паскаль?
1) латинские строчные и прописные буквы,
2) арабские цифры,
3) русские строчные и прописные буквы,
4) знак подчёркивания.

А2. Какая последовательность символов может служить именем программы в языке Паскаль?
1) _test, 2) nos_56, 3) 56_ttt, 4)Игорь78.

А3. Обозначение целочисленного типа данных в языке Паскаль.
1) integer, 2) real, 3) char, 4) string.

А4. В каком из условных операторов допущена ошибка?
1) if b=0 then writeln ( ‘Деление не возможно‘);
2) if a 3) if a>b then max:=a else max:=b;
4) if (a>b) and (b>0) then c:=a+b.

А5. С оператора while в языке Паскаль программируется:
1) цикл - ПОКА, 2) цикл с параметром, 3) цикл – ДО, 4) все вышеперечисленные.

В заданиях группы Б представить полное решение или записать ответ.

Б1. Определите значение переменной b после выполнения фрагмента программы:
a:=4;
b:=3;
a:=12/a*b;
b:=a+b*2.
В ответе укажите одно целое число – значение переменной b.

Б2. Запишите значение переменной S , полученное в результате работы следующей программы.

❌ 9 9⃣ и что я не такая в твоём классе как тебе говорят что у нас в школе и так много всяких проблем разных с этим не нужно было ничего делать

число-общее

столица росси - единичное

учебник - общее

житель москвы - общее

столица - общее

самая высокая гора - единичное

пушкин - единичное

сказочный персонаж - общее

баба яга- единичное

и какая вероятность что пользователь не

program i_guess_number; uses crt; var changes: array [1..2,1..10] of integer; i,op,n: integer; s: string; res: real; begin      randomize;       writeln("загадайте число");       n : = 0;       repeat            n : = n+1;             i : = random(10);             op : = random(4);                         case op of                  1: s : = "прибавте ";                   2: s : = "отнимите ";                   3: s : = "умножте на ";                   else s : = "поделите на ";             end;                         writeln(s, i);             changes[1,n] : = op; {запоминаем действия}            changes[2,n] : = i;       until n = 10;             writeln("что вышло? ");       readln(res);             for i : = n downto 1 do { производим обратные действия }      begin            case changes[1,i] of                  1: res : = res - changes[2,i];                   2: res : = res + changes[2,i];                   3: res : = res / changes[2,i];                   else res : = res * changes[2,i];             end;       end;                   writeln("вы загодали ",res); end.