Обьясните как найти толщину результирующего слоя через плотность сухого покрытия и как через разность плотностей найти массу испарившегося растворителя! (можно текстом решение написать, можно на языке си ) Задание:Определить конечную массу треугольной призмы после нанесения покрытия его сушки по заданным значениям плотности покрытия в сухом и жидком состоянии, а также толщину результирующего покрытия с учетом испарения растворителя. Также известны две стороны, угол между ними и высота призмы!
2. Почти ничего не меня получим код для цикла while:
var
i, n, k: integer;
begin
i := 2;
readln(n);
while i <= n div 2 do begin
if (n mod i) = 0 then k := i;
i:=i+1;
end;
writeln('наибольший делитель ', n, ' = ', k);
end.
3. Аналогично для цикла Repeat:
var
i, n, k: integer;
begin
i := 2;
readln(n);
repeat
if (n mod i) = 0 then k := i;
i:=i+1;
until i> n div 2;
writeln('наибольший делитель ', n, ' = ', k);
end.