Var
a:array [1..9] of integer;
i,k,b:integer;
begin
randomize;
writeln('Массив:');
for i:=1 to 9 do
begin
a[i]:=random(141)+10;
write(a[i],' ');
end;
writeln;
for i:=1 to 9 do
begin
if a[i]<=99 then
if ((a[i] div 10) mod 2)<>0 then k:=k+a[i];
if a[i]>99 then
begin
b:=a[i] div 10;
if (b mod 2)<>0 then k:=k+a[i];
end;
end;
writeln('Сумма элементов у которых вторая с конца цифра нечетная: ',k);
end.
Оставьте таблицу перевода долларов в рубли по обычному и льготному (больше $100) курсу. Конкретные значения курсов обмена задаются в ячейках В6 и В7. Задача решается с помощью ввода формулы в ячейку В10 и копирования ее в В11:В43.
Курс $
Льготный курс $
Cумма ($) На руки
5
10
15
20
25
30
35
40
45
50
55
60
65
70
75
80
85
90
95
100
105
110
115
120
125
130
135
140
145
150
155
160
165
170
0
Вроде так
Получается 51017
Дальше бред из-за ограничения
Сркдлврыдылвиочзяжыиви
1 ВСТАВЛЯЕШЬ ДИСК В ДИСКОВОД
2 ЗАГРУЖАЕШЬ
3 ЗАТЕМ ТЫ НАЖИМАЕШЬ МОЙ КОМП ИЛИ ПРОСТО КОМП И НАЖИМАЕШЬ НА ДИСК D:/
4 НА ДИСКЕ КОГДА ОТКРЫЛОСЬ ИЩЕШЬ НУЖНУЮ ПАПКУ ЕСЛИ ПАПКИ НЕТ ТО ФАЙЛ ХРАНИТСЯ ВНЕ ПАПКИ.
И 5 НАЖИМАЕШЬ НА НУЖНЫЙ ФАЙЛ ТО ЕСТЬ ОТКРЫВАЕШЬ ЕГО.
ВСЁ