1)Первый способ:
program one;
var a,b:integer;
begin
b:=0;
readln(a);
while a<>100 do
begin
if a=77 then
begin
b:=b+1;
readln(a);
end
else readln(a);
end;
if b>0 then writeln('Yes')
else writeln('No');
end.
2)Второй способ:
program one;
var a,b:integer;
begin
b:=0;
repeat
readln(a);
if a=77 then b:=b+1;
until a=100;
if b>0 then writeln('Yes')
else writeln('No');
end.
Program enot;
VAR p:real;
i,n:integer;
BEGIN
p:=1;
read(n);
for i:= n downto 1 do
p:= p*i;
writeln(p:4:2);
<span> end.</span>
Всего доступно 255 символов
Есть также символы которые использовать нельзя: / \ ? : * " < > |
Ответ:
42
Объяснение:
2A(16)= 2* 16 + 10=42(10)
44(8) = 4*8 + 8 = 40(10)
100111(2) = 32+4+2+1=39(10)