Var
a, b, t: integer;
begin
readln(a, b);
if b > a then begin
t := a;
a := b;
b := t;
end;
writeln(a mod b = 0);
end.
//Pascal ABC.NET 3.1 сборка 1256
Var
a,b:integer;
begin
read(a,b);
writeln(((a div b)*a+(b div a)*b)/((a div b)+(b div a)));
end.
Пример ввода:
8
5
Пример вывода:
8
19 из 10 в 2
делим 19 на 2, записываем остатки, получившиеся значения записываем в обратном порядке
19/2=9 ост 1
9/2=4 ост 1
4/2=2 ост 0
2/2=1 ост 0
19 из 10 в 8
аналогично, но делим на 8
19/8=2 ост 3
19 из 10 в 16
19/16=1 ост 3
561 из 10 в 2
561/2=280 ост 1
280/2=140 ост 0
140/2=70 ост 0
70/2=35 ост 0
35/2=17 ост 1
17/2=8 ост 1
8/2=4 ост 0
4/2=2 ост 0
2/2=1 ост 0
561 из 10 в 8
561/8=70 ост 1
70/8=8 ост 6
8/8=1 ост 0
561 из 10 в 16
561/16=35 ост 1
35/16=2 ост 3
Вычислим общее количество точек, содержащихся в фотографии. Обратите внимание, что 600 точек содержит не линейный сантиметр, а квадратный. Таким образом общее число точек будет 10 х 15 х 600 = 9000 точек. Поскольку точка описывается 4 битами, то общее число бит 9000 х 4 = 36000 бит.
Переведем биты в байты и получим 36000 : 8 = 4500 байт
Переведем байты в килобайты 4500 : 1024 = 4,39 килобайт.
Ответ:Общий объем=4,39
Вот так пойдет
первая картинка раскрашеная вторая нет