var a, b, с: integer;
begin
write('Введите два числа: ');
readln(a, b);
if a < b then с := a + 1 else с := b + 1;
repeat с := с - 1
until (a mod с = 0) and (b mod с = 0);
write('NOD = ', с)
end.
//2. Алгоритм с вычитанием (цикл while)
var a, b: integer;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
while a <> b do
if a > b then
a := a - b
else
b := b - a;
writeln('NOD = ', a);
end.
3. 1111112, 6110, 4616, 738 или так? 111111(2), 61(10), 46(16), 73(8) ? если так То 46(16), 111111(2), 61(10), 73(8)
4. 10011001012(10) = 112454740264(8) = 254B3C0B4(16)
5. AF16(16) = 127426(8), или AF(16) ?? тогда 257(8)
6. 170(8) = 120(10), 1111011(2) = 123(10), 2 числа (121,122)
7. 1001012 и 3A16 тоже не понятно, если это 100101(2) и 3A(16), тогда 37 + 58 = 95
9. 199 224 228 224 237 232 229 Задание