1. переменные обувная фабрика собирается начать выпуск элит- ной модели ботинок. дырочки для шнуровки будут рас- положены в два ряда, расстояние между равно a, а расстояние между дырочками в ряду b. количество дырочек в каждом ряду равно n. шнуровка должна про- исходить элитным наверх, по горизонтали в другой ряд, наверх, по горизонтали и т.д.» (см. рисунок). кроме того, чтобы шнурки можно было завязать бантиком, длина свободного конца шнурка должна быть l. какова должна быть длина шнурка для этих ботинок? программа получает на вход четыре натуральных числа a, b, l и n (именно в таком порядке) и должна вы- вести одно число – длину шнурка.
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.
begin
writeln('Введите строны первого треугольника: ');
read(a1, b1, c1);
writeln('Введите стороны второго треугольника: ');
read(a2, b2, c2);
p1 := (a1 + b1 + c1) / 2;
p2 := (a2 + b2 + c2) / 2;
s1 := sqrt(p1 * (p1 - a1) * (p1 - b1) * (p1 - c1));
s2 := sqrt(p2 * (p2 - a2) * (p2 - b2) * (p2 - c2));
if (s1 + 1e-3 > s2) and (s1 < s2 + 1e-3) then writeln('Равновеликие')
else writeln('Неравновеликие');
end.