В таблице представлены сведения о библиотечном фонде школы. Автор Год рождения Количество книг в библиотеке Жанр
И.Ф. Анненский 1855 2 Поэзия
С.А. Есенин 1895 40 Поэзия
Н.М. Рубцов 1936 5 Поэзия
К.М. Симонов 1915 10 Поэзия
И.С. Тургенев 1818 50 Проза
Ф.М. Достоевский 1821 77 Проза
И.А. Гончаров 1812 28 Проза
А.А.Фадеев 1901 12 Проза
А.Н. Плещеев 1825 9 Поэзия
Сколько записей в таблице удовлетворяют условию:
(Год рождения < 1915) И (Жанр = «Поэзия)?
Формулы площадей квадрата S₁ и круга S₂ известны, что легко позволяет нам найти нужное условие.
Если нужно, чтобы случай, когда квадрат вписан в круг тоже учитывался, строгое неравенство следует заменить нестрогим.
// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
begin
var s1:=ReadReal('Площадь квадрата');
var s2:=ReadReal('Площадь круга');
if pi*s1<2*s2 then Writeln('Квадрат умещается в круге')
else Writeln('Квадрат не умещается в круге')
end.
Тестовое решение:
Площадь квадрата 24.6
Площадь круга 28.4
Квадрат не умещается в круге
Вот пример программы на паскале ABC:
var a:array [1..1000000] of integer;
b:array [1..10] of longint;
c:integer;
i,max,n:longint;
begin
write('Введите число элементов массива: ');
readln(n);
max:=0;
for i:=1 to 10 do
b[i]:=0;
for i:=1 to n do begin
a[i]:=random(10)+1;
write(a[i],' ');
b[a[i]]:=b[a[i]]+1
end;
for i:=1 to 10 do if b[i]>max then
begin
c:=i;
max:=b[i]
end;
writeln;
writeln('Чаще всего в массиве встречается число ',c)
end.