ну если не надо еще в какие-нибудь другие единицы то правильно, но ты понял как добавить еще точности, так ведь?
Var
a,b,c:integer;
begin
read(a,b,c);
if a<b then a:=b;
if a>=c then writeln(a) else writeln(c);
end.
Sub Zadanie()
n = CInt(InputBox("n ="))
for i = 1 to n
t = i
s = 0
Do While t > 0
s = s + (t mod 10)^3
t = t \ 10
Loop
if i=s then MsgBox i
next
End Sub
I = K * i
i = 1 бит/пиксель
I = 240 пикселей * 1 бит/пиксель = 240 бит = 30 байт
Ответ: 30 байт.
Ответы:
1. 120/3 = 40
2. 100*80*60 = 48000 бит