var
n:integer;
begin
write('n = ');
readln(n);
if (n mod 10) > ((n div 100) mod 10) then
writeln('Последняя больше второй')
else
if (n mod 10) < ((n div 100) mod 10) then
writeln('Вторая больше последней')
else
writeln('Они равны');
readln;
end.
// Вторая программа
var
n, Pr:integer;
begin
write('n = ');
readln(n);
Pr := 1;
while n > 0 do
begin
Pr := Pr * (n mod 10);
n := n div 10;
end;
writeln('Pr = ', Pr);
if Pr mod 5 = 0 then
writeln('Кратно')
else
writeln('Некратно');
readln;
end.
Поделитесь своими знаниями, ответьте на вопрос:
Вычесть 10100110101 - 11100011011 ( оба числа двоичные)