var
s: string;
i: integer;
q: boolean;
begin
readln(s);
for i := 1 to length(s) do
if(s[i] = '?') then q := true;
if(q) then writeln('Вопросительное')
else writeln('Не вопросительное');
end.
program
zadacha;
var
x,y,a,b,h:integer;
begin
writeln('vvedite
tri chisla');
readln(a,b,h);
x:=a;
<span>write('x y');</span>
writeln();
while
x<=b do begin
y:=1-5*x+sqr(x)*x;
writeln(x,
' ',y);
x:=x+h;
end;
end.
<span>186Кбайт = 186/1024=0,181640625Мбайт
</span><span>2Кбайта 11 байт = (2*1024+11)*8 = 16472бит
</span>66435 бит = 66435/8/1024=8,1097412109375Кбайт
Var a,b,k1,k2,s:integer;
<span>begin </span>
<span>s:=0; </span>
<span>k1:=0; </span>
<span>writeln('Введите начало и конец отрезка'); </span>
<span>read(a,b); </span>
<span>k2:=b-a+1; </span>
<span>repeat </span>
<span>if b<0 then break; </span>
<span>s:=s+b; </span>
<span>b:=b-1; </span>
<span>inc(k1); </span>
<span>until (b=-1) or (b=a-1); </span>
<span>writeln('Сумма всех целых положительных чисел на отрезке = ',s); </span>
<span>writeln('Количество отрицательных целых чисел = ', k2-k1); </span>
<span>end.</span>