Var k,a,b,c,l:integer;
begin
readln(k);
a:=k div 100;
b:=k div 10 mod 10;
c:=c mod 10;
l:=a*b*c;
if (k mod l=0) then writeln(k);
end.
Удалить всмысле на ноль заменить? если да, то:
if {name array}[2] <0 then
{name array}:=0;
Sub aaa()
Cells(8, 3).Formula = "=MAX(A5:A9)+MIN(A5:A9)"
End Sub
Ответ:
1875 Кбайт
Объяснение:
Объем видеопамяти = 2*16*800*600 бит = 4*800*600 байт = 1875 Кбайт
K=16×32×40
i=16
I-?
I=K×i=16×32×40×16=327680 битов