Поделитесь своими знаниями, ответьте на вопрос:
? 1. Программалау жүйесі деген не?2. Программалау жүйесі нені қамтиды?3. Қандай танымал программалау жүйесін білесіңдер?4. Программаны құру үшін қандай компоненттер қажет?5. Программалау жүйесінің негізі неліктен тіл болып табылады?6. Қандай программалау тілдерін білесіңдер?7. Программалау жүйесінің құрамына не кіреді?8. Түрлі программалау тілдерінің ерекшелігі неде?9. Программалау тілдері мен программалау жүйесі арасындағы ерекшелікам-неде? памаги
n,k,i:integer;
begin
for n:=1 to 2 do
begin
writeln('Введите строку ',n,':');
readln(s);
k:=0;
for i:=1 to length(s) do
begin
case s[i] of
'[': k:=k+1;
']': k:=k-1;
end;
end;
if k=0
then writeln('В строке ',s,' количество [ и ] одинаково')
else writeln('В строке ',s,' количество [ и ] не одинаково');
end;
end.
Пример:
Введите строку 1:
c:=a[imax,j]; a[imax,j]:=a[imin,j]; a[imin,j]:=c
В строке c:=a[imax,j]; a[imax,j]:=a[imin,j]; a[imin,j]:=c количество [ и ] одинаково
Введите строку 2:
Просто [ пример ]] со [[ скобками
В строке Просто [ пример ]] со [[ скобками количество [ и ] не одинаково