<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
program Задача;
begin
var x,y:integer;
Read(x,y);
if (x>0) and (y>0) then
Writeln('Точка принадлежит 1-ой четверти КП')
else
Writeln('Точка не принадлежит 1-ой четверти КП')
end.
Ответ:
TWITTER
Объяснение:
Переводим последние 7 символов в 16-ричную форму:
1010100 = 54
1010111 = 57
1001001 = 49
1010100 = 54
1010100 = 54
1000101 = 45
1010010 = 52
Открываем таблицу ASCII (пользовался вики) и сопоставляем символы: 54 = T, 57 = W, 49 = I, 45 = E, 52 = R
P. S. Можно переводить не в 16-ричную, а сразу в десятичную, тогда будет:
1010100 = 84
1010111 = 87
1001001 = 73
1010100 = 84
1010100 = 84
1000101 = 69
1010010 = 82
и далее по Вашей таблице опять же получится TWITTER
10100110100111001 <span> в двоичной
</span>246471 <span>восьмеричной
</span>14D39 <span>шестнадцатеричной</span>
Program nfff;
var abcd,S,a,b,c,d: integer;
Begin
WriteLn('найти сумму цифр четырехзначного числа');
Write('Введите abcd= ');ReadLn(abcd);
a:=abcd div 1000;
b:=abcd div 100;
b:=b mod 10;
c:=abcd mod 100;
c:=c div 10;
d:=abcd mod 10;
S:=a+b+c+d;
writeln('S=',S);
End.
var a,b:integer;
Begin
randomize;
a:=random(99);
writeln('Дополните ', a);
read(b);
if (a+b=100) then writeln(':-)')
else writeln(':-(');
end.