PascalABC.Net
var
str : string;
i : integer;
begin
write('Введите строку: ');
readln(str);
for i := 1 to length(str) do
case str[i] of
'а' : str[i] := 'б';
'А' : str[i] := 'Б';
'б' : str[i] := 'а';
'Б' : str[i] := 'А';
end;
writeln(str);
end.
<em>// PascalABC.NET 3.3, сборка 1579 от 18.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ReadArrInteger(12);
Writeln('Номер первого отрицательного элемента: ',a.FindIndex(t->t<0)+1);
end.
<u>Пример</u>
36 20 -13 50 14 27 -1 26 -14 -17 -15 42
Номер первого отрицательного элемента: 3
<u>Замечание:</u> Значения всех 12 элементов вводятся с клавиатуры
1)Процессор отвечат за все процессы твоего компьютера и ренденринг изображения, мощность процессора характеризуется Гигагерцами(Ггц) и Мегагерцами(Мгц)
2)В команде процессора (реестре) хранится вся информация твоего компьютера,
4)Внутренняя память (оперативная) предназначена для временного хранения всех данных ваших действий и входящей и исходящей информации, если бы не было оперативной памяти процессор не мог бы быть мультизадачным.
5)Емкость оперативной памяти влияет на производительность и сильно, ведь какая то любая часть окна, например ваш браузер занимает какое то количество оперативной памяти, а многие современные игры требуют как минимум 6 гигабайт оперативной памяти. Внутренняя память должна быть у каждого компьютера...
<em>// PascalABC.NET 3.3, сборка 1573 от 04.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
procedure MyProc;
begin
var n:=ReadInteger('Введите порядок матрицы:');
Writeln('Введите построчно элементы матрицы');
var a:=ReadMatrInteger(n,n);
Writeln(4*a.ColCount*'-');
Write('Строки, содержащие только нули: ');
for var i:=0 to n-1 do
if a.Row(i).All(t->t=0) then Print(i+1);
Writeln
end;
begin
Loop 2 do MyProc
end.
<u>Пример</u>
Введите порядок матрицы: 3
Введите построчно элементы матрицы
1 0 0
0 0 1
0 0 0
------------
Строки, содержащие только нули: 3
Введите порядок матрицы: 2
Введите построчно элементы матрицы
0 0
0 0
--------
Строки, содержащие только нули: 1 2
readln (A, B); - вводим значения А В
C:=(A+B) * (B-A); - выполняем уравнение
writeln (C) - выводим результат
В итоге получается (если введём A = 7, а B = 8)
С=(7+8)*(8-7)
C=15