Скажите пожалуйста, какой вам нужен паскаль. Сразу же - я пишу на delphi
Var n,i,t,p:integer;
begin
readln(n);
for i:=2 to n do begin
t:=i;
p:=1;
repeat
p:=p*(t mod 10);
t:=t div 10;
until t=0;
if (p<>0)and(i mod p=0) then write(i,' ');
end;
end.
1. 8 цветов - 1 пиксель log2 8 = 3 бит.
640 * 480 = 307200 пикс.
307200 * 3 = 921600 бит.
512 цветов - 1 пиксель log2 512 = 9 бит
921600/9 = <u>102400 пикс.</u>
2. глубина цвета 24, значит 1 пиксель = 24 бит = 3 байт
640 * 480 = 307200 пикс.
307200 * 3 = 921600 байт. = 900 Кбайт
//прога на Pascal`e {бдок-схема в файле}
var
x: int64;
begin
write ('Введите целое число: ');
readln (x);
if x<=38 then write ('Салют') else write ('y = 5x-38 = ', 5*x-38);
end.
Будем ремонтировать следующие опоры : A B D F H J L N O
получим 10 + 5 + 10 + 40+ 30 +50 + 2 + 3 +20 = 170