<em>// PascalABC.NET 3.2, сборка 1338 от 16.11.2016</em>
begin
var a,b:integer; Read(a,b);
Writeln(max(a,b) mod min(a,b))
end.
Правда, не пойму, зачем ограничиваться числом 100?
Растровая стереофотография
Стереофильмы с использованием поляризационных очков
Голография
Стереоскопы
Стереизображения с использованием дополнительных светофильтров
Стереограммы
Метод "параллакса"
Быстроменяющиеся картинки
V=urta
u=16кГц=16000Гц
r=24/8=3(какое бы число ни было дано, всегда делим на 8)
t=3*60=180 с.
a=1(т.к. одноканальная, если двухканальная, то 2)
V=16000*3*180*1=8640000 байт.
8640000/1024=8437,5 Кбайт.
8437,5/1024=8.2 Мбайта.
Ответ: 2(8 Мбайт).
Ячейка - минимальный объект табличного процессора
Var numb,sot,des,ed:integer;
begin
readln(numb);
sot:=numb div 100;
des:= numb mod 100;
des:= des div 10;
ed:= numb mod 10;
writeln(sot,' ',des,' ',ed);
end.