// PascalABC.NET 3.1, сборка 1198 от 11.03.2016
begin
var Bnk:=Arr(500,100,50,10);
var s:=ReadInteger('Сдача, руб:');
var Kol:=Arr(0,0,0,0);
for var i:=0 to 3 do begin
Kol[i]:=s div Bnk[i];
s:=s mod Bnk[i]
end;
if s<>0 then Writeln('Сдачу дать невозможно')
else begin
Writeln('Следует дать:');
for var i:=0 to 3 do
Writeln('банкнот по ',Bnk[i],' руб - ',Kol[i],' шт.')
end
end.
<u><em>Тестовое решение:</em></u>
Сдача, руб: 850
Следует дать:
банкнот по 500 руб - 1 шт.
банкнот по 100 руб - 3 шт.
банкнот по 50 руб - 1 шт.
банкнот по 10 руб - 0 шт.
1)
S:=200;
a:=20;
b:=S / a;
P:=2*(a+b);
2)
P:=100;
a:=10;
b:=(P / 2) - a;
S:=a*b;
3)
S:=36;
a:= sqrt (S);
P:=4*a;
(sqrt - извлечение квадратного корня)
(Попробуйте сами провести вычисления по составленным алгоритмам!)
Искомое = Общее время передачи - Время передачи БВ
= 13*60 - 80*1024*1024*8/2^20 = 140c = 2 мин 20 с
Первое закреплённое изображение было сделано в 1822 году
французом Жозефом Нисефором Ньепсом (Nicéphore Niepce), но оно не сохранилось
до наших дней. Поэтому первой в истории фотографией считается снимок «вид из
окна», полученный Ньепсом в 1826 году с помощью камеры-обскуры на оловянной
пластинке, покрытой тонким слоем асфальта. Экспозиция длилась восемь часов при
ярком солнечном свете. Достоинством метода Ньепса было то, что изображение
получалось рельефным (после протравливания асфальта), и его легко можно было
размножить в любом числе экземпляров.