Оформить таблицу по образцу. Добавить еще 7 жильцов (данные придумать). Написать формулы для подсчета суммы, которую необходимо заплатить каждому жильцу за ремонт дома, если на капитальный ремонт дома идет сбор по 3 руб. 87 коп. за 1 квадратный метр. Найти общую сумму сбора со всех жильцов на содержание дома. При записи формулы, использовать абсолютную ссылку на ячейку содержащую сумму за 1 кв.м. Заполнить ячейки для суммы путем копирования первой составленной формулы.
begin
read(k);
if k div 7=k/7 then n:=7 else
if k+1 div 7=k+1/7 then n:=6 else
if k+2 div 7=k+2/7 then n:=5 else
if k+3 div 7=k+3/7 then n:=4 else
if k+4 div 7=k+4/7 then n:=3 else
if k+5 div 7=k+5/7 then n:=2 else
if k+6 div 7=k+6/7 then n:=1;
writeln(n);
end.
б)var k,n:integer;begin
read(k);
if k-1 div 7=k-1/7 then n:=7 else
if k div 7=k/7 then n:=6 else
if k+1 div 7=k+1/7 then n:=5 else
if k+2 div 7=k+2/7 then n:=4 else
if k+3 div 7=k+3/7 then n:=3 else
if k+4 div 7=k+4/7 then n:=2 else
if k+5 div 7=k+5/7 then n:=1;
writeln(n);
end.
WriteLn('Введите длины сторон треугольника');
ReadLn(x, y, z);
If x = y and y = z and z = x
then
WriteLn('Данный треугольник - равносторонний')
else
If (x = y and y = z) or (x = y and x = z) or (x = z and y = z)
then
WriteLn('Данный треугольник - равнобедренный')
else
If (Sqrt(x) = Sqrt(y) + Sqrt(z)) or (Sqrt(y) = Sqrt(x) + Sqrt(z)) or (Sqrt(z) = Sqrt(x) + Sqrt(y))
then
WriteLn('Данный треугольник - прямоугольный')
else
If (x < (y + z)) and (y < (x + z)) and (z < (x + y))
then
WriteLn('Данный треугольник является обыкновенным')
else
WriteLn('Данный треугольник не существует');
p := div((x + y + z) / 2); {Полупериметр}
WriteLn('Периметр треугольника Р =', x + y + z);
WriteLn('Площадь треугольника S =', div(Sqrt(p*(p-x)*(p-y)*(p-z;
WriteLn('Медиана к стороне x -', div(Sqrt(2*Sqr(y) + 2*Sqr(z) - Sqr(x))/2));
WriteLn('Биссектриса стороны х -', div(Sqrt(y*z*(x+y+z)*(y+z-x))/(y+z)));
С синусами/косинусами особая история, напиши мне в лс, чтоб я не забыл потом