с двух участков площадью в 28га и 14га собран картофель причём урожай на первом участке на 3m с гектара больше чем на втором картофель сложили в два овоще хранилище размерами 50мX8м 3м и40м X 6 X 3м оставив четвёртую часть всего объёма свободной 1 м³ картофеля весит 7 ц определить урожай картофеля с 1га на каждом участке . ответ ?
а) функция передает в точку вызова скалярное значение, а процедура - нет
г) имя функции может входить в выражении как операнд
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];
Во-первых, её можно упростить. Во-вторых, ты в одном месте не поставил ;. Напишу примерный вид программы, которая должна работать:
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.
Должно сработать))