Ну например: (по выделению тепла) Костёр, плита, лампа накаливания. Или (по прочности) корпус косм. ракеты, корпус машины, стеклопакет окне, тарелка, соломка.
коды.. .
var a,b:char;
begin
writeln('Введите символы');
readln(a,b);
writeln('код 1 числа - ',ord(a));
writeln('код 2 числа - ',ord(b));
if ord(a) < ord(b) then
writeln('a < b')
else if ord(a) > ord(b) then
writeln('b < a')
else writeln('a = b');
readln;
end.
Пояснение.
Заменим буквы Д, Е, К, О, Р на 0, 1, 2, 3, 4 соответственно (для них порядок очевиден — по возрастанию).
Выпишем начало списка, заменив буквы на цифры:
1. 0000
2. 0001
3. 0002
4. 0003
5. 0004
6. 0010
...
Полученная
запись есть числа, записанные в пятеричной системе счисления в порядке
возрастания. Первое слово, начинающееся с «К» — 2000 переведём его в
десятичную: 3 · 52 + 0 · 52 + 0 · 51 + 0 · 50 = 250.
Не забудем о том, что есть слово номер 1, записывающееся как 0, а значит, 250 — число, соответствующее номеру 251.
Ответ: 251.
Выдает ошибку в строке:
<span>new(i); i^=3;
</span>Если изменить как 1 и вторую строку, то бишь на <span>new(i); i^:=3;
То выдаёт ответ - <u>3</u>.</span>
Var a:array[1..12,1..20] of real;
i,j,n:integer;
s:real;
begin
// Заполним массив случайными значениями для теста
for i:=1 to 12 do
for j:=1 to 20 do
a[i,j]:=random*20000;
writeln('Номер сотрудника ');
readln(n);
for i:=1 to 12 do
s:=s+a[i,n];
writeln('Зарплата за год ',s);
end.