Письменность была нужна для оформления сделок, фиксации движения товаров, выручки, учета, финикийцы известны, прежде всего, как предприимчивые торговцы и отважные мореплаватели.
var
tmp, sum : integer;
begin
sum := 0;
while not eoln do
begin
read (tmp);
if (tmp >= 10) and (tmp <= 15) then
sum := sum + tmp;
end;
writeln (sum);
end.
Program e1;
var
x, y: real;
begin
writeln('Введите х');
readln(x);
if x < 5 then y := (4 * sqr(x) + 1) / (-5)
else y := 3 * sqr(x) - 2;
writeln('y=', y)
end.
--------------------------------------------
program e2;
var
x, y: real;
begin
writeln('Введите х');
readln(x);
if x > -4 then y := (5 * sqr(x) + 2) / (x + 4)
else y := 3 * sqr(x) + 7;
writeln('y=', y)
end.
У меня нет Турбо Паскаля, вставьте там в начале, как всегда пишете директиву uses Crt
Пояснение.
Заменим буквы Д, Е, К, О, Р на 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.