Var
s:string;
i,n,k:integer;
begin
Write('Введите выражение: '); Readln(s);
i:=Length(s);
while i>0 do begin
if s[i]=')' then begin
k:=0; Dec(i);
while (s[i]<>'(') and (i>0) do
begin Dec(i); Inc(k) end;
Delete(s,i+1,k)
end;
Dec(i)
end;
Writeln(s)
end.
<em><u>Тестовое решение:</u></em>
Введите выражение: 3*(a+b)/(a-b);
3*()/();
===== PascalABc.NET ======
begin
for var i := 0 to 10 do
Writeln(i:2, 3*i*i-4*i+2:6)
end.
Сканируется изображение 45,72×45,72 см.
необходимо перевести в дюймы 1дюйм = 2,54 см
45,72 / 2,54 см = 18 дюймов
18*18 = 324 дюймов все изображение
600 * 1200 * 324 = 233280000 точек
точек с цветом
233280000 * 24 = 5598720000 точек / 8 = 699840000 байт
<span>699840000 байт = 667,4 Мбайт</span>
Привет,да в таблицу можно вставлять и удалять строки и столбцы,это сделано для того что бы например ты внес(ла) в неё какую либо информацию,а потом решил,что она тебе не нужна и вместо того чтобы чтобы сидеть и долго стирать все это ты берёшь и удаляешь строку или столбец с этой информацией,или ещё другой способ ты создаёшь таблицу про моря и океаны(к примеру)и тебе надо 15 строк и 10 столбцов а изначально можно создать только 8 строк и 10 столбцов,и вот ты просто добавляешь строки со столбцами и у тебя всё получается!!!!
<span>Всего нужно сыграть 5*6=30(матчей)
Уже сыграно 18 матчей
30-18=12(матчей) - осталось.
Ответ: сыграно -18; осталось -12</span>