var
i, c : byte;
t : integer;
begin
c := 0;
for i := 1 to 10 do
begin
read (t);
if t mod 2 = 0 then inc (c);
end;
writeln (c);
end.
var
n, i : integer;
begin
read (n);
for i := 100 to 999 do
if i mod 10 + i div 10 mod 10 + i div 100 = n then writeln (i);
end.
var
i : integer;
begin
for i := 100 to 999 do
if i mod 10 = i div 100 then writeln (i);
end.
Program abc;
var
n, i: integer;
s: real;
begin
write('Введите количество чисел: ');
readln(n);
for i := 1 to n do
s := s + 1 / i;
write('Сумма обратных чисел = ', s);
end.
Пусть видеопамять компьютера имеет объем 512 кБайт. Размер графической сетки - 640 х 480. Сколько страниц экрана одновременно разместится в видеопамяти при палитре из 16 цветов; 256 цветов?
Для 16 (2^4) цветов нужно 4 бита на пиксель, для одного экрана нужно 640*480*4=1228800 бит=153600 байт, память 512*1024=524288 байт, посчитаем 524288 /153600=3,41333 т.е. 3 страницы.
Для 256 (2^8) цветов нужно 8 бит на пиксель, для одного экрана нужно 640*480*8=2457600 бит=307200 байт, память 512*1024=524288 байт
524288 /307200=1,70667 т.е. 1 страница.
Var
a, b, i, j, found: integer;
begin
readln(a, b);
for i := a to b do
begin
found := 1;
for j := 2 to round(sqrt(i + 1)) do
begin
found := found * (i mod j);
if found = 0 then break;
end;
if found <> 0 then write(i, ' ');
end;
end.
