var a,b:integer;
function f(a,b:integer):integer;
begin
if (a<>0) and (b<>0) then begin
if (a>b) then
a:=a mod b else
b:=b mod a;
f(a,b);
end else
writeln(abs(a-b));
end;
BEGIN
writeln('Введите 2 натуральных числа');
readln(a,b);
write('НОД(',a,',',b,') = ');
f(a,b);
end.
Ответ:
program abc;
var n,m,k,b:integer;
begin
readLn(n,m,k);
if k mod m <> 0 then b:=Trunc(k/m)+1 else b:=k div m;
if b mod 2<>0 then writeLn(b)
else if b>=n then writeLn(b-1);
if (b mod 2=0) and (b<>n) then writeLn(b+1);
end.
Объяснение:
Оперативная память это не большой объем памяти которую мы запомнили не давно. мы ее быстро вспомним но также и быстро забудим
а долговремееная память это когда мы ее долго будем искать но всегда помнить.
( пример - компьютер)
Ответ: накопитель. к ним относятся все устройства хранения данных