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. упорядочите следующие числа по убыванию: 6110, 738, 1111112, 4616 4. переведите число 10011001012 в восьмеричную и шестнадцатеричную системы счисления. 5. переведите число af16 в восьмеричную систему счисления 6. сколько существует натуральных чисел x, для которых выполнено неравенство 170(8) < x < 1111011(2)? 7. вычислить сумму чисел 1001012 и 3a16, представив результат в десятичной системе счисления. 9. декодируйте следующий текст, заданный восьмеричным кодом: 307 340 344 340 355 350 345, используя таблицу 8-битной кодировки windows-1251 символов
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 Задание