Пример реализации в VBA Excel.
Код программы можно увидеть, нажав Alt+F11
Const
USD=64.05; // Официальный курс доллара США к рублю на 08.07.2016
EUR=70.95; // Официальный курс евро к рублю на 08.07.2016
var
RUR:real; // сумма в российских рублях
begin
Writeln('Введите сумму в российских рублях: ');
Read(RUR);
Writeln('В долларах США: ',RUR/USD:0:2);
Writeln('В евро: ',RUR/EUR:0:2);
end.
<u><em>Тестовое решение:</em></u>
Введите сумму в российских рублях:
15200.76
В долларах США: 237.33
В евро: 214.25
1)
uses crt;
var chislo,summa,proiz:integer;
begin
clrscr;
Readln(chislo);
summa:=(chislo div 10) + (chislo mod 10);
proiz:=(chislo div 10) * (chislo mod 10);
Writeln('<span>сумма:',summa:6:2);
</span>Writeln('<span>произведения </span>:',proiz:6:2);
end.
2)
var chislo:integer;
begin
Readln(chislo);
chislo:=(chislo div 10)+(chislo mod 10)*10;
Writeln(chislo);
end.
Ответ:
12
Объяснение:
Можно представить что данный диапазон это прямоугольник, в котором верняя грань равна 3 ячейкам - столбцы A B C, а боковая грань равна 4 ячейкам, т.к. состоит из строк 2 3 4 5
Общее количество ячеек:4*3=12
1 взять пакет с кормом в руки
2 открыть пакет
3 подойти к миске
4 наклониться
5 насыпать корм
6 выпрямиться
7 убрать корм на место
8 позвать собаку