Const N = 10;
var A: array[1..10] of integer;
i, len: integer;
s: string;
begin
write('Введите слово: ');
readln(s);
len := length(s);
for i := 1 to len do begin
A[ i ] := ord(s[i]);
writeln('Код символа ', s[ i ], ': ', A[ i ]);
end;
<span>end.</span>
Var a,b:integer;beginreadln(a,b);writeln(a div b);end.
Var
s,g:string;
sum:integer;
begin
g:='бвгджзйклмнпрстфхцчшщБВГДЖЗЙКЛМНПРСТФХЦЧШЩ';
read(s);
sum:=0;
for var i:=1 to length(s) do
if (pos(s[i],g)>0) then sum:= sum+i;
writeln(sum);
end.
<span>//ABC Pascal
</span>
1. <span>1) Деревья
2. </span><span>3)Иерархические структуры (деревья)
3. </span><span>2)Файл
4. </span><span>3)Ячейка
5. </span><span>4)Многоуровневая (иерархическая)
6. </span><span>3)Алгоритм
7. </span><span>4)Массовость
8. </span>2)Текстовая <span>4)На языке программирования 5)Графическая
9. </span><span>4)Блок-схема
10. </span><span>Блок-схема
11. </span>1)язык программирования <span>4)транслятор 5)библиотеку программ
12 синтаксис
13 </span><span>3)Семантика
14 равно
15 program
16 -
17 </span><span>2)While<условие выполнения>Do <тело цикла>
18 ;(точка с запятой)</span>
01010011 в двоичной системе счисления есть 83 в десятичной системе, что по таблице ASCII является буквой "S".