var m,k:integer;
n:real;
begin
writeln('Введите n и m через пробел:');
read(n,m);
k:=0;
writeln('Шаг ',k,', n=',n,', m=',m);
while m >= 6 do begin
m:=m-2;
n:=n*2;
k:=k+1;
writeln('Шаг ',k,', n=',n,', m=',m);
end;
writeln('n=',n,', m=',m);
end.
Результат:
Введите n и m через пробел:
1 10
Шаг 0, n=1, m=10
Шаг 1, n=2, m=8
Шаг 2, n=4, m=6
Шаг 3, n=8, m=4
n=8, m=4
Пр- это практическая работа))
Объяснение:
1000 бит больше чем 20 байт.
2 кб и 2048 байт равны, так как 2048 байт равны 2 кб.
Третье к сожалению не знаю.
Ответ:
2000
Объяснение:х делится без остатка на 4
И 100, или делится на 400 без остатка, к данному условию подходит только число 2000
Ответ:
Объяснение:
и здесь в результате будет ошибка в строке
Writeln (A.B)
нужно перечислить переменные через запятую и в конце точку с запятой: Writeln (A,B);