div это деление нацело то есть без остатка
mod это остаток от деления
345 div 10 = 34
467 mod 100 =
67
398 div 10 mod 10 =
39
27 div 5 =
5
45 mod 9 =
0
753 div 10 mod 5 =0
Program n1;
var
N, K, i: integer;
begin
readln(N, K);
while (N - K >= 0) do
begin
N := N - K;
i := i+ 1;
end;
writeln('Частное от деления: ',i);
writeln('Остаток: ', N);
end.
<em>// PascalABC.NET 3.2, сборка 1356 от 04.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var x:=ReadReal('x=');
if (x>8) or (x<-8) then Writeln('|x|>8')
else Writeln('|x|<=8')
end.
<span>Переменные которые находятся в основной программе будут глобальными, а в процедуре локальными.</span>