| | | | | | | | | |
__________________
–| |–
–| |–
–| INTEL |–
–| |–
–| |–
–|___________________|–
| | | | | | | | | | |
примерно так
Var
a,s:integer;
begin
s:=0;
repeat
readln(a);
s:=s+a;
until a=0;
writeln('Сумма чисел: ',s);
<span>end</span>
111 в 2 = 1101111
Если , будут вопросы задавайте
Var s:string;
n,l,k,i:integer;
begin
write ('Введите строку: ');
readln(s);
n:=0;
l:=0;
k:=0;
for i:=1 to length(s) do
begin
n:=ord('?');
l:=ord(s[i]);
if n=l then k:=k+1;
end;
WRITELN;
if k=0 then writeln ('Знак вопроса ни разу не встретился в строке.')
else writeln ('Знак вопроса встретился ',k,' раз строке.');
end.
Ответ:1 молодец 2 отлично 3 превосходно
Объяснение: