Программа для случая, когда в строке только "0", "1" и пробелы (т.е. проверки корректности ввода нет):
procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
i,k,max:integer;
begin
if combobox1.Text<>'' then
begin
s:=combobox1.Text;
combobox1.Items.Insert(0,s);
s:=s+' ';
while pos(' ',s)>0 do delete(s,pos(' ',s),1);
k:=0; max:=0;
for i:=1 to length(s) do
if s[i]<>' '
then k:=k+1
else begin
if k>max then max:=k;
k:=0;
end;
label1.Caption:='Количество символов в самой длинной группе: '+inttostr(max);
end;
end;
Program n1;
var a: integer;
begin
readln(a);
if (a mod 10)+(a div 100)+(a mod 100 div 10)>10 then write('верно') else write('неверно');
end.
Для анализа результатов независимых испытаний используется формула Бернулли:
Здесь
n = 10 - всего проверяемых документов;
m = 9 - число документов, в которых нет ошибки;
p = 0,9 - вероятность того, что документ не содержит ошибки;
q = 0,1 - вероятность того, что в документе есть ошибка.
Var x: real;
{ процедура функция }
function y( x: real): real;
begin
if x>0 then Result:=5*x*x-(4/7)*x+2;
if x<0 then Result:=5*x*x-2*x+(1/3)*x-2;
end;
{ основная программа }
begin
write('Задайте значение x ');
readln(x);
if x=0 then writeln('при х = 0 функция не определена')
else writeln('Значение функции y = ',y(x):12:5);
end.
<span>
</span>
1)запускаем часы на 8 мин и 3 мин одновременно
на 3 мин запускаем ещё раз
2) в 8мин осталось 2 мин, запускаем часы на 3мин, после высыпания в 8 мин в 3 мин останется 1 мин, переворачиваем их и
3) начинаем отсчёт времени: 1 мин в 3-х минутных и переворачиваем их ещё два раза 1+3+3=7 минут