Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
8, 1, 4, 1, 5, 9, 6, 7, 2
нам это тоже задовали под буквой а я тож не знаю,а вот под буквой б напишу
program prim;
var i,sum,n,x : integer;
begin
write('n = ');
readln(n);
x: =2;
sum: =2;
i: =1;
while sum< =n do
x: =x+2;
i: =i+1;
sum: =sum+x;
end;
writeln(i,'слагаемых');
end.
var
i,j,k: integer;
s,p: string;
p: ='abcdefghijklmnopqrstuvwxyzабвгдеёжзийклмнопрстуфхцчшщъыьэюя';
readln(s);
k: =0;
for i: =1 to length(s) do
for j: =1 to length(p) do
if s[i]=p[j] then k: =k+1;
writeln(k);
-32=-100000
прямой код 10100000
обратный код 11011111
дополнительный код 11100000
-102=-1100110
прямой код 11100110
обратный код 10011001
дополнительный код 10011010
-126=-1111110
прямой код 11111110
обратный код 10000001
дополнительный код 10000010
Популярные вопросы