//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016) var a,n,k,i,j,s:integer; begin writeln('Количество учеников и количество оценок'); readln(n,k); for i:=1 to n do begin for j:=1 to k do begin write('Ученик № ',i, ' оценка № ',j,' = '); readln(a); s:=s+a; end; end; println('Средняя оценка группы ',s/(n*k):6:3); end.
Перепишем программу в виде, удобном для анализа алгоритма. var a,b,t,N:integer; function F(x:integer):integer; begin F:=16*(6-x)*(6-x)-450; end; begin a:=-20; b:=20; N:=0; for t:=-20 to 20 do if (F(t)>=0) then N:=N+1; Write(N) end.
Переменные a и b получают начальные значения, но дальше не используются, поэтому их рассматривать не нужно. Все переменные в программе объявлены целочисленными, поэтому анализируем алгоритм также в целых числах. Переменная t последовательно принимает значения от -20 до 20, следовательно, можно записать, что t ∈ [-20;20] Для каждого t вычисляется значение некоторой функции F(t) и подсчитывается N - количество случаев, когда значение F(t) неотрицательно. Найденное N затем выводится. Ставится задача определить значение N. Проанализируем функцию F(t). После простого преобразования получаем F(t)=16(6-t)²-450 Теперь надо найти решение неравенства F(t)≥0. Поскольку решение выполнятся в целых числах, то значение в правой части неравенства достаточно записать с точностью один знак после запятой. На интервале [-20;20] первому условию удовлетворит 21 точка, второму условию удовлетворят 9 точек. Всего получится 21+9=30 точек. ответ: Будет выведено число 30
numm = int(input())
if numm >= 10:
print('Итина')
else:
print('Ложь')
Объяснение: