Var k,n:integer;
begin
readln(k);
n:=k mod 7;
writeln('n = ',n);
end.
Пример:
34
n = 6
Abs - модуль числа.
div - целочисленный результат деления
mod - остаток от деления.
1) 10/12 = 0.8. Целый результат - 0. Модуль нуля тоже ноль.
2) корень из 17 - 4,12. Модуль - 4.
Uses graphabc;
var
y: integer;
begin
for y:=0 to 25 do
setpixel (10,y,clred);
end.
Var a,b:real;
begin
write(' введите параметры уравнения ax+b=0 a и b');
read(a,b);
if (a=0) and (b=0) then write('уравнение имеет бесконечно много решений ');
if (a=0) and (b<>0) then write('уравнение не имеет решений');
if (a<>0) then write(' уравнение имеет один корень', -b/a);
end.