Var
i:integer;
begin
i:=100;
while (i+7<200) do begin
inc(i,7);
write(i,' ');
end;
end.
var a:integer;
begin
readln(a);
writeln(a mod 10,a div 10 mod 10, a div 100)
end.
Непонятна последняя фраза в задании, но тем не менее - вот вариант решения:
В ячейку А1 вводим цену в рублях
В ячейку А4 вводим формулу <em>=A1/A10</em>
В ячейку А6 вводим формулу <em>=A1/A11</em>
В ячейку А10 вводим курс доллара к рублю (сколько рублей стоит 1 доллар)
В ячейку А11 вводим курс евро к рублю (сколько рублей стоит 1 евро)
Украшаем это всё рамками и надписями с пояснениями :)
Теперь, если курс изменился, меняем его в ячейке А10 или А11 - и в ячейках А4 и А6 получаем текущую цену в валюте.
Ничего не видно. Сфоткай еще раз
Условием проверяй, какое число больше.