Var
x: real;
n: integer;
begin
Write('Введите любое число: ');Readln(x);
if x < 0 then n := -1
else
if x = 0 then n := 0 else n := 1;
Writeln('y=', n)
end.
Тестовое решение:
Введите любое число: 5
y=1
1) 1101 0101(2) = 213(10)
324(8) = 212(10)
C5(16) = 197(10)
В порядке возрастания C5(16), 324(8), 11010101(2)
1.2) 245(10) = 1111 0101(2) = 365(8) = F5(16)
2) 10101110(2) – 256(8) + A(16) = 10(10)
для расшифровки нужно применить обратный алгоритм
1) написать название животного
2) для первой буквы названия найти предыдущую по алфавиту
Животные: (некоторые подбирались исходя из ответа)
Улитка - Т
Бык - А
Лев - К
Енот - Д
Ёж - Е
Сова - Р
Зебра - Ж
Белка - А
Утка - Т
Эму - Ь
Ответ - Так держать
Поскольку 10 = 5 х 2, то число, кратное 10, одновременно кратно и 5.
<em><u>Турбо Паскаль 7.01</u></em>
uses Crt;
var
n:longint;
begin
ClrScr;
Write('n='); Read(n);
if n mod 10=0 then Writeln('Число кратно 10 и 5')
else Writeln('Число не кратно 10 и 5');
ReadKey
end.
В то же время, возможно сам вопрос неверно поставлен, и подразумевается, что надо различать три случая: 1) число кратно только 5 2) число кратно 10, следовательно, и 5 3) число не кратно ни 5, ни 10. Но это уже проблемы автора вопроса.
//Pascal
//Для натуральных чисел
var a, s, p:integer;
begin
write('Введите число = ');
readln(a);
s := 0;
p := 1;
while (a<>0) do
begin
p := p * (a mod 10);
s := s + (a mod 10);
a := a div 10;
end;
writeln( 'Сумма цифр числа = ', s);
writeln( 'Произведение цифр числа = ', p);
end.
//Если число отрицательное
var
s, p, a, b, c: integer;
f: boolean;
begin
write('Введите число = ');
readln(a);
if a < 0 then
f := true;
a := abs(a);
b := a mod 10;
a := a div 10;
c := a mod 10;
a := a div 10;
if f = true then
begin
p := (-a) * b * c;
s := -a + b + c;
end
else
begin
s := a + b + c;
p := a * b * c;
end;
writeln('Сумма цифр числа = ', s);
writeln('Произведение цифр числа = ', p);
end.