Pascal
Program room;
Var a, b, c, d, m, n, S, o : real;
Begin
Readln(a, b, c, d, m, n);
S = a*b*4;
O = c*d + m*n;
S = S - O;
Writeln(S);
End.
Формула достаточно простая
C2 =ЕСЛИ(B2<=200;B2*0,6;ЕСЛИ(B2<=500;B2*0,9;B2*1,2))
У меня в ячейках B2-B6 записан расход в киловаттах, в C2-C6 оплата в рублях.
Внизу сумма Итого
B7 =СУММ(B2:B6) - суммарный расход, C7=СУММ(C2:C6) - суммарная оплата
Program Project1;
var a, P, S, d :real;
begin
readln(d); a:= d/sqrt(2); S:= sqr(a); P:= 4*a; writeln('Сторона: ',a); writeln('Площадь: ',S); writeln('Периметр: ',P);
end.<span>
</span>
#include <iostream>
using namespace std;
int main()
{
int n, m;
cout << "n = ", cin >> n, cout << "\n";
m = n + 1 + (n+1)%2;
cout << "m = " << m;
return 0;
}
Пример:
<span>n = 17
m = 18</span>