Если покрасить надо весь кабинет (потолок, пол и стены)
Если на Pascal:
var a, b, c, d, e, f, s: integer;
begin
readln(a);
readln(b);
readln(c);
readln(d);
s:=2*(a*b)+2*(a*c)+2*(b*c);
e:=s*d;
f:=5*e;
writeln(f);
end.
Если на Python:
import sys
a=int(sys.stdin.readline())
b=int(sys.stdin.readline())
c=int(sys.stdin.readline())
d=int(sys.stdin.readline())
s=2*(a*b)+2*(a*c)+2*(b*c)
e=s*d
f=5*e
print(f)
720= 180*i (I(объем)= K(кол-во символов)*i(вес одного символа))
i= 720/180
i= 4
N(мощность алфавита)=2^i
N=2^4
N=16
var
c,r,s:real;
begin
write('dlina okruznosti=');
readln(c);
r:=c/(2*pi);
s:=pi*sqr(r);
writeln('ploshad=',s)
end.
//PascalABC.NET 3.4.2
begin
var str := readstring('Введите строку:').ToWords;
var ch := readchar('Введите букву:');
str.Where(x -> Pos(LowerCase(ch), LowerCase(x)) = 1).Count.Print;
end.