Var
H2SO4:string;
B:integer;
Begin
B:=0;
WriteLn('Введите три формулы кислот');
ReadLn(H2SO4);
if H2SO4 = 'H2SO4' then B:=1;
ReadLn(H2SO4);
if H2SO4 = 'H2SO4' then B:=2;
ReadLn(H2SO4);
if H2SO4 = 'H2SO4' then B:=3;
if B = 0 then WriteLn('Формулы серной кислоты среди них нет')
else WriteLn('Формула серной кислоты: №',B)
End.
Var i,d:integer;
n:array[1..3] of integer;
begin
writeln('Введите диапазон( от 0 до ...)');
readln(d);
randomize;
for i:= 1 to 3 do
beginn[i]:=random(d+1);
writeln(n[i]);
end;
if n[1]= n[2]+n[3] then
writeln('YES')
else
writeln('NO');
end.<span>
</span>
Добрый день. У вектора есть такое понятие как reverse_iterator, объявляется так: vector<type>::reverce_iterator = yourVector.rbegin();
Текстовый процессор может изменять шрифт удалять красить заменять сохранять форматировать и много много еще а редактор может только редактировать