Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
а) в 1-байтовом формате:
б) в 2-байтовом формате:
00000000 до 11111111
1)false (т.к. x> y)
2)true (x< y,x не равен y)
3)false(x> y)
4)true(т.к. x=y, x не равен y)
а если число
var n,i,p: integer;
s: string;
begin
read(n);
s: =str(n) ; {переводим число в строку}
n: =0;
for i : = 1 to length(s) do
n: = n+ int(s[i]); {переводим каждый символ строки обратно в цифру}
writeln(n);
p: =1;
for i: = 1 to n do
p: = p*i;
writeln(p);
end.
Популярные вопросы