Є база даних магазину продажу автомобілів. Визначте типи зв'язків, які тре ба встановити між обектами таблиць Магазин та Автомобіль за умов: а) е кілька магазинів і кілька моделей автомобілів, у кожному магазині е автомобілі тільки однієї моделі і кожна модель автомобіля продаеться тільки в одному магазині;
б) е тільки один магазин і він продае автомобілі однієї моделі;
в) є кілька магазинів і всі вони продають автомобілі однієї моделі;
г) е кілька магазинів і є кілька моделей автомобілів, у кожному магазині е автомобілі всіх моделей;
Var
n,m,max,min:integer;
Begin
write('Введите число: ');
readln(n);
min:=9;
max:=0;
while n>0 do
begin
m:=n mod 10;
if m<min then min:=m;
if m>max then max:=m;
n:=n div 10; end;
writeln('Максимальное число: ',max);
writeln('Минимальное число: ',min);
End.
2)
var
i,count: integer;
n,s:string;
begin
writeln('Введите число: ');
readln(s);
writeln('Введите цифру: ');
readln(n);
for i:=1 to length(s) do
if(s[i]=n)then
count:=count+1;
writeln('Количество раз, когда встречается цифра = ',count);
end.
Формулы площадей квадрата 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
Квадрат не умещается в круге