1. Обозначение целочисленного типа данных в языке Паскаль
а) integer
б) real
в) char
г) string
2. В записи вещественных чисел целая часть от дробной отделяется:
а) пробелом
б) точкой
в) запятой
г) двоеточием
3. Какой символ необходим для разделения операторов?
а) =
б) ;
в) :
г) :=
4. Какое имя объекта недопустимо в Pascal?
а) 167y
б) UIP
в) Tr15
г) zima
5. Выберите число относящееся к типу real:
а) 16
б) C
в) 16.31
г) 28700
6. Выберите верный символ или набор символов, который называется оператором присваивания
а) =
б) ;=
в) :=
г) ==
7. Каким словом обозначается оператор вывода в Pascal
а)Read
б) Write
в) Wrote
г) readen
8. Какая функция посчитать квадрат от числа х?
а) sqrt(x)
б) sql(x)
в) sqr(x)
г) sqv(x)
9. Выберите правильную запись выражения «А не равно 4»
а) А!=4
б) А=4
в) А==4
г) А<>4
10. Какой из операторов не является циклом
а) For
б) Read
в) While
г) Repeat
Решение 1:
nominative = 1 # окончания им.падеж: гриб
generative = [2, 3, 4] # список окончаний род.падеж: гриба
plural_generative = [5, 6, 7, 8, 9, 0] # список окончаний род.падеж множ-го: грибов
for number in range(0, 51): # цикл с значением от 0 до 51
"""number % 10 возвращает последнюю цифру из числа"""
if (number % 10) == nominative:
print(f"{number} гриб")
elif (number % 10) in generative:
print(f"{number} гриба")
elif (number % 10) in plural_generative:
print(f"{number} грибов")
Решение 2:
nominative = 1 # окончания им.падеж: гриб
generative = [2, 3, 4] # список окончаний род.падеж: гриба
for number in range(0, 51): # цикл с значением от 0 до 51
"""number % 10 возвращает последнию цифру из числа"""
if (number % 10) == nominative:
print(f"{number} гриб")
elif (number % 10) in generative:
print(f"{number} гриба")
else:
print(f"{number} грибов")
Объяснение:
В комментариях.
function Avg(a:array[,] of integer):real;
begin
var s:=0; var k:=0;
foreach var e:integer in a do
if e>0 then begin s+=e; Inc(k) end;
if k>0 then Result:=s/k else Result:=1e-100;
end;
begin
var A:=MatrixRandom(4,4,-50,50); Writeln(A);
Writeln('Среднее арифметическое положительных равно ',Avg(A):0:3);
var B:=MatrixRandom(5,5,-30,30); Writeln(B);
Writeln('Среднее арифметическое положительных равно ',Avg(B):0:3);
var C:=MatrixRandom(4,5,-25,38); Writeln(C);
Writeln('Среднее арифметическое положительных равно ',Avg(C):0:3);
end.
Тестовое решение:
[[35,35,5,-47],[14,34,35,-13],[25,-5,35,-29],[-7,10,-12,12]]
Среднее арифметическое положительных равно 24.000
[[-12,-17,-10,19,14],[20,17,-27,-2,16],[-3,-21,30,2,10],[5,-3,-17,-3,18],[0,-26,29,1,-22]]
Среднее арифметическое положительных равно 15.083
[[-5,-11,17,-4,15],[15,17,-24,36,15],[-8,-3,-22,28,-25],[-21,6,12,31,-1]]
Среднее арифметическое положительных равно 19.200