Var X,Y,K:integer; E,p:real; Begin Write('Сколько яблок в наличии: ');ReadLn(X); Write('Сколько человек: ');ReadLn(Y); Write('Сколько долларов за одно яблоко: ');ReadLn(E); Write('Сколько рублей за один доллар: ');ReadLn(p); if X mod 5 <> 0 then K:=X+5-(X mod 5) else K:=X; While K/Y<1.66 do K:=K+5; WriteLn('Требуемое количество яблок: ',K); WriteLn('Столько яблок придётся докупить: ',K-X); WriteLn('Стоимость докупленных яблок: ',(K-X)*E*p:0:2,' руб.'); End.
Пример:
Сколько яблок в наличии: 1 Сколько человек: 3 Сколько долларов за одно яблоко: 50 Сколько рублей за один доллар: 0.05 Требуемое количество яблок: 5 Столько яблок придётся докупить: 4 Стоимость докупленных яблок: 10.00 руб.
ПРАВИЛЬНЫЙ алгоритм: 1. Находим координаты вектора каждой стороны по координатам вершин стороны (пусть эти координаты - х1,у1 и х2,у2): х=х2-х1, у=у2-у1 2. Находим длину каждой стороны: длина=корень квадратный (х*х+у*у) 3. Периметр=сумма длин всех сторон
Если четырехугольник в трехмерном пространстве, везде добавляем координату z: 1z=z2-z1 2корень квадратный (х*х+у*у+z*z)
Пример на языке С: (имеется в виду, что все переменные уже объявлены где-то выше)