<em>// PascalABC.NET 3.2, сборка 1363 от 17.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
function gcd(a,b:int64):int64; // НОД
begin
while b<>0 do begin a:=a mod b; Swap(a,b) end;
Result:=a
end;
begin
Writeln(gcd(gcd(36,54),gcd(18,15)))
end.
<u>Результат</u>
3
Дано
N1=256
N2=2 ( цвета черный и белый)
v2=v1-70
Найти v1/v2
V1=a*b*I1 I- глубина цвета
V2=a*b*I2
V1/v2=I1/I2 ( а и b сократится при делении)
Найдем I1 и I2 из формулы Хартли N=2^I
256=2^I I1= 8
2=2^I I2=1
V1/(v1-70)= 8/1
V1/(v1-70)=8 решим уравнение по свойству пропорции
8v1-560=v1
7v1=560
v1=80 байт
Ответ:
расширение справа от последней точки
название справа от последней точки
12.pdf : 12 название pdf расширение
остальные файлы точно так же
===== PascalABC.NET =====
begin
var n := ReadInteger('Длина массива:');
var (a, b) := ReadInteger2('Границы значений элементов [a, b]:');
var V := ArrRandom(n, a, b);
V.Println;
Writeln('Искомая сумма равна ', V.Where(p -> p < 9).Sum)
end.