Var a,b,i,nod:integer
Begin
a:=-1;
b:=-1;
//ввод первого числа
Writeln('Введите первое число');
While a<0 do
begin
readln(a);
if a<0 then writeln('Ввод ошибочен, повторите ввод первого числа');
end;
//ввод второго числа
Writeln('Введите второе число');
While b<0 do
begin
readln(b);
if b<0 then writeln('Ввод ошибочен, повторите ввод второго числа');
end;
//определение минимального числа
if a>b then i:=b else i:=a;
//перебор чисел от минимального до 0 (т.к. НОД не может быть больше минимального числа)
While nod=0 do
begin
i:=i-1;
if (a mod i = 0) and (b mod i = 0) then nod:=i;
end;
//вывод НОД
Writeln('НОД ', a,' и ', b, ' = ', nod);
end.
1/512 мегабайт = 0,001953125 мегабайт
0,001953125 мегабайт *1024 = 2 килобайта
2 килобайта * 1024 = 2048 байт
2048 байт * 8 = 16384 бит
ответ: 16384 бит
Ответ: форматирование
Выбор типа данных: числовой, текстовый, дата-время...
Количество десятичных знаков, разделители групп разрядов, перенос по словам
Выравнивание по горизонтали и вертикали, отступ, ориентация
Название, размер шрифта, жирный шрифт, курсив, цвет шрифта
Варианты границ ячейки
Заливка фона цветом
Объяснение:
Var n,k: integer;
<span> s: real;
</span><span>begin
</span><span> s:=0; n:=0;
</span><span> repeat
</span><span> inc(n);
</span><span> k:=n*n;
</span><span> s:=s+k/(k+2);
</span><span> until s>9;
</span><span> writeln('n = ',n,' s =',s:5:2);
</span><span>end.
</span><span>n = 11 s = 9.45
</span>
Нажимаешь на ячейку G15 (под ответом), потом на значок суммы сверху справа (возле сортировки). Далее выделяешь голубые ячейки сверху и, зажав [Ctrl], сразу же оставшиеся голубые ячейки. Нажимаешь [Enter]. Формула должна получиться "=СУММ(A4:E4;C7:F8)".