Запишем на языке Паскаль алгоритм получения частного q и остатка r от деления натурального числа х на натуральное число у без использования операции деления.

program n_14;
var х, у, q, г: integer;
begin
writeln ('Частное и остаток');
write ('Введите делимое х>>');
readln (х);
write ('Введите делитель у>>');
read (у) ;
r :=х;
q:=0;
while r>=x do
begin
r:=r-y;
q:=q+1
end;
writeln ('Частное q=', q) ;
writeln ('Остаток r=', r)
end.

Каким будет результат выполнения программы при х = -10 и у = 3? Как вы можете объяснить этот результат?

Режим инкогнито, приватный просмотр — режим браузеров, временно дающий «новое» устройство без истории сёрфинга. Иногда дополнительно усиливается защита информации: например, начинает агрессивнее работать блокировщик трекеров.

Может применяться:

1)для сёрфинга по порно, медицинским и прочим законным, но компрометирующим сайтам, покупки подарков втайне от домочадцев

2)для сёрфинга на чужом устройстве

3)для временного частичного снятия пузыря фильтров

4)для ухода от оплаты на некоторых новостных сайтах

5)для отладки сайтов

6)для трансляции экрана

Const   n = 50; // количество чиселvar   k: array [1..n] of integer;   i, j, n1, n2, minr, a, b: integer; begin   writeln(n, ' ', ': d');   a : = random(1000);   b : = random(1000);   minr : = 10000;   for i : = 1 to n do       k[i] : = a + random(b);   for i : = 1 to n do       for j : = 1 to n do           if ((abs(k[i] - k[j])) < minr) and (k[i] < > k[j]) then           begin               minr : = abs(k[i] - k[j]);               n1 : = i;               n2 : = j;           end;   writeln(n1, ' ', n2); end.