begin
var n:=ReadInteger('n=');
var m:=(n div 1000) mod 10;
var p:=1;
while n>0 do
begin
p*=n mod 10;
n:=n div 10
end;
if (p mod 5 =0) and(p mod m<>0) then Print('Верно')
else Print('Неверно')
end.
На DVD-записывают фильмы!А на CD-музыку,игры и т.п
a)
25 div 3 = 24:3=8
73 div 7 = 70:7= 10
31 div 7 = 28:7= 4
25 mod 3= 25-24=1
73 mod 7 = 73-70=3
31 mod 7 = 31-28=3
b)
2 div 3 + 1 = 0+1=1
17 - 23 div 7 = 17 - 3 = 14
31 div (7+5) = 31 div 12 = 2
25 mod 3 + 25 div 3 = 8+1=9
47 div (3 mod 7) = 47 div 3 = 15
31 mod (7 div 2) = 31 mod 3 = 1
Function circle_func(x: real): real;
begin
circle_func := sqrt(4 - sqr(x + 8)) - 2;
end;
function line_func(x: real): real;
begin
line_func := 0.5*x + 1;
end;
function quadratic_func(x: real): real;
begin
quadratic_func := sqr(x - 6);
end;
var
x, y: real;
begin
writeln('Введите аргумент: ');
readln(x);
if ((x >= -10) and (x < -6)) then y := circle_func(x);
if ((x >= -6) and (x < 2)) then y := line_func(x);
if ((x >= 2) and (x < 6)) then y := 0;
if ((x >= 6)) then y := quadratic_func(x);
writeln(y:5:3);
end.
Program n_5;
var
a, b: integer;
begin
writeln('Введите 2 целых числа ');
readln(a);
read(b);
if a > b then
write(b, ' < ', a);
if a < b then
write(a, ' < ', b);
if a = b then
write(a, ' = ', b);
end.
