В русском варианте диалога найти и заменить это выглядит так:
Найти: берёза
Заменить на: стол
То есть, будет найдено слово берёза, и заменено на слово стол.
Правильный ответ №3 (слово «берёза» заменится на слово «стол»).
Procedure print();
var i,j: char;
begin
for i := 'A' to 'Z' do
for j := 'A' to i do
write(j)
end;
begin
print()
end.
35
+
21
__
100
1) 1+5=0, полный разряд следовательно основание 6
2) 3+2+1(перенос из 2)
Ответ: 2
3*10
30+5
35+1
36+1
Если я правильно поняла вопрос
Var a,k:integer;
begin
readln(a);
k:=0;
while a>0 do
begin
if a mod 2 = 1 then k:=k+1;
a:=a div 2;
end;
writeln('k = ',k);
end.
Пример:
10
k = 2