Многоуровневый список устройств компьютера:Процессор<span>Память:
Оперативная память
Долговременная память
Жесткий магнитный диск
Дискета
Флэш-память
Оптические диски
CD</span><span>DVD
Устройства ввода:
Клавиатура
Мышь
Сканер</span><span>Графический планшет
Цифровая камера
Микрофон
Джойстик
Устройства вывода:
Монитор
Жидкокристаллический монитор
Монитор на электронно-лучевой трубке
Принтер:
Матричный принтер
Струйный принтер
Лазерный принтер.</span>
Таблица кодировки символов устанавливает соответствие между: символами, их десятичными номерами и двоичными кодами, символами<span> разных алфавитов, символами и количеством байтов, которые они занимают</span>
Uses crt;
var i,sum:integer;
begin
sum:=0;
for i:=10 to 99 do
if i mod 3=0 then sum:=sum+i;
writeln(sum);
<span>end.</span>
1) var m,n,z,i,b,count: Integer;
begin
writeln('Введите кол-во рядов');
readln(m);
writeln('Введите кол-во мест в каждом ряду');
readln(n);
writeln('Сколько билетов куплено?');
readln(z);
for i:=1 to m do
begin
for b:=1 to n do
begin
Inc(count);
end;
end;
if (z=count) or (z<count) then writeln('Хватит') else
if z>count then
writeln('Не хватит');
end.
2) var a,b,c: Integer;
begin
writeln('Введите числа a и b');
readln(a,b);
c:=a+b;
if c>10 then
begin
a:=a*5;
b:=b*5;
end;
if (c=10) or (c<10) then
begin
a:=a-5;
b:=b-5;
end;
writeln('a - ',a);
writeln('b - ',b);
end.
3) var x: Real;
begin
writeln('Введите x');
readln(x);
if x<4 then writeln(sqrt(x+1));
if x>4 then writeln(2.5*x-2);
if x=4 then writeln(3*(x*x)-1);
end.
Var n,p,k,i,j:integer; f:boolean;
begin
write('n = ');
readln(n);
p:=2;
for i:=2 to n do
begin
f:=false;
while not f do
begin
p:=p+1;
k:=0;
for j:=2 to round(sqrt(p)) do
if p mod j = 0 then k:=k+1;
f:=k=0;
end;
end;
writeln(p);
end.
Пример:
n = 25
97