// PascalABC.NET 3.0, сборка 1150 от 22.01.2016
var
m,n:integer;
begin
Write('Введите М и N: '); Read(m,n);
if m<>n then begin m:=0; n:=1 end
else begin m:=2*m; n:=2*n end;
Writeln('m=',m,', n=',n)
end.
<u><em>Тестовые решения:</em></u>
Введите М и N: 5 7
m=0, n=1
Введите М и N: 4 4
m=8, n=8
Пакет прикладных программ – это комплекс программ, предназначенный для решения определённого класса задач по некоторой тематике.
ППП общего назначения - универсальные программные продукты, предназначенные для автоматизации разработки и эксплуатации функциональных задач пользователя.
К этому классу ППП относятся:
редакторы: текстовые (Word, WordPad) и графические (CorelDraw,PhotoShop);
электронные таблицы (Excel, Lotus 1-2-3);
системы управления базами данных (Access, Oracle);
средства подготовки презентаций (PowerPoint);
интегрированные ППП;
системы автоматизации проектирования (AutoCad);
оболочки экспертных систем и систем искусственного интеллекта и др.
Var
s : String;
i : Integer;
begin
Writeln('Введите строку:');
Readln(s);
<span> i:= 0;
</span><span>
while pos(')', s) <> 0 do
</span> begin
<span> i := i + pos(')', s) - pos('(', s) + 1;
</span><span> delete(s, pos('(', s), pos(')', s) - pos('(', s) + 1);
</span> end;
<span>
Writeln(s);
</span> Writeln(i);<span>
Readln;
</span><span>end.
2)
var
s : String;
</span> <span>i, e : Integer;
</span> <span>flag : Boolean;
begin
Writeln('Введите строку:');
Readln(s);
<span>
</span></span> <span>e := 0;
</span> <span>flag := False;
for i := 1 to Length(s) do
</span> <span>begin
</span> <span>if (s[i] = UpCase(s[i])) and ((s[i - 1] = ' ') or ( i = 1 )) then flag := True;
</span> <span>if flag then Write(s[i]);
</span> <span>if (( s[i] = ' ' ) or ( i = Length(s))) and flag then
</span> <span>begin
</span> <span>flag := False;
</span> <span>inc(e);
</span> <span> Writeln;
</span> <span>end;<span>
</span></span> <span>end;
<span> Writeln(e);
</span><span> Readln;
</span>end.</span>
Не позиционный с.с. - римская или арабская
Позиционная с.с. - двоичная, троичная, восьмеричная, десятиричная и тп
