Я так понимаю, ты пишешь программу, которая говорит, сколько тебе лет)) Во-первых, её можно упростить. Во-вторых, ты в одном месте не поставил ;. Напишу примерный вид программы, которая должна работать:
Program Vozrast; var i: integer; begin writln ('Введите возраст: '); readln(i); if (i < 1) or (i > 150) then writeln ('Это туфта, насяльника!'); if (i <> 11) and (i mod 10 = 1) then writeln (i, 'год'); if ((i<10) or (i>20)) and ((i mod 10 = 2) or (i mod 10 = 3) or (i mod 10 = 4) then writeln (i, 'года'); if ((i > 9) and (i < 21)) or ((i mod 10 = 5) or (i mod 10 = 6) or (i mod 10 = 7) or (i mod 10 = 8) or (i mod 10 = 9) or (i mod 10 = 0)) then Writeln (i, 'лет'); end.
100. Назовите все отличия функций от процедур? а) функция передает в точку вызова скалярное значение, а процедура - нет г) имя функции может входить в выражении как операнд
101. С каких параметров происходит передача данных из главной программы в подпрограмму? а) фактических
102. Выберите неправильную форму записи оператора цикла в) WHILE I<5 TO BEGIN I:=I+1; WRITELN(I); END
103. Какое выражение обеспечивает генерирование случайных чисел в диапазоне [4,10[ а) 4+RANDOM(6)
104. что означает FV в команде read(FV, x1, x2,..., xn) в Паскале ? б) переменную, связанную с файлом, откуда берется информация г) первую переменную величину для ввода информации
105. Каким окажется результат выполнения следующего фрагмента кода X:= 5; Y:= X+1; Writeln('Х=',X, Y=',Y);? в) X=5 Y=6
106. Какое значение примет переменная Х после выполнения команды X:=SQR(4)/2*2? в) 16
107. Каким окажется результат выполнения следующего фрагмента кода: X:= 5; Y:= 8; Т:= Х; X:=Y; Y:= T; Writeln('Х=', X, Y=',Y);? б) X=8 Y=5
108. Логическое выражение (N Mod 10 Mod 2) Or (N Div 10 Mod 10 Mod 2 = 0) Or (N Div 100 Mod 2 = 0) должно принимать значение TRUE тогда и только тогда, когда истинно высказывание Выражение записано с ошибкой г) в трёхзначном натуральном числе хотя бы одна чётная цифра
109. Цикл в фрагменте программы P := 4; Repeat P := P * 0.1 Until P < 0.0001; будет исполнен? г) 5 раз
110. Значение R после выполнения операции логического присваивания R := Not (A Or B Or (X > 2) And (Y < 0)) при A = False, B = False, X = 3, Y = 2 будет равно в) True
111. Значения переменных a и b после выполнения следующих действий a := 15 Div (16 Mod 7); b := 34 Mod a * 5 - 29 Mod 5 * 2; будут равны г) a = 7, b = 22
112. Во фрагмент алгоритма, печатающий все двузначные числа, в записи которых есть цифра N или сумма цифр которых равна самим числам, нужно вписать логическое выражение Объяснение конечно еще то г) ((P1 = N) Or (P2 = N)) And (S = K)
113. Тело цикла в программе a := 1; b := 1; While a + b < 8 Do begin a := a + 1; b := b + 2 end; выполнится? б) 2 раза
114. Задана строка St (см Фрагмент алгоритма) ??? где фрагмент ??? 115. Задан двумерный массив X[1..n, 1..m]. Процедура ??? где Процедура ??? 116. Задан двумерный массив X[1..n, 1..m]. Функция возвращает значение ??? где Функция ??? 117 = 110
118. В каком фрагменте программы подсчитывается сумма элементов квадратной матрицы, расположенных выше главной диагонали? а) For i:= 1 to n do For j:= 1 to n do If i<=j then S:=s+a[I,j];
3 дес + 9 ед = 39
5 дес + 4 ед = 54