В параллелограмме указан ввод числа в переменную А, т.е. А будет равно 25;
Далее присваиваем значение переменным Х=1 и S=0;
Проверяем/сравниваем (обычно это условный оператор if).
У нас действительно S меньше или равно А, т.к. 0<25;
Выполняем блок действий Х=Х*4 (т.е. Х=4); S=S+X (т.е. S=4);
Опять проверяем/сравниваем 4<25, опять выполняем блок действий.
X=4*4=16 (т.к. старое значение уже было 4 и оно хранится в памяти)
S=4+16=20 (тоже что и с иксом);
Опять проверяем 20<25. Опять выполняем блок действий:
X=16*4=64
S=20+64=84
Проверяем :-) (надоело уже) 84<20????? Нет больше. Идем по ветке нет, т.е. выводим S.
На экране отобразиться число 84.
Взвесить 1+2=х 1+3=у; х-у=z (вес 1 слитка)
х-z= вес 2 слитка; у-z= вес 2 слитка
По аналогии 4 и 5; 4 и 6
7 и 8; 7 и 9
ВСЕГО 6 взвешиваний.
r:real;
i,j,n:integer;
begin
r:=0;
readln(s);
for i:=1 to length(s) do begin
n:=0;
for j:=1 to length(s) do begin
if s[i]=s[j] then inc(n);
end;
r:=r+1/n;
end;
writeln('количество различных букв = ', r:1:0);
end.