Как операционная система управляет процессом работы компьютера или другого электронного устройства с ОС, так процессом исполнения оркестром музыкального произведения управляет дирижёр.
Var
a : char;
b : integer;
begin
readln(a);
b := ord(a);
writeln(chr(b+1), chr(b+2))
end.
В созвездии Малая Медведица 7 звёзд. Самая яркая из них Полярная звезда.
var sum, i, s: integer; //обыявляем необходимые переменные
//sum - сумма, i - кол-во слогаемых, s - само слогаемое
begin //начало
sum := 0; i := 1; s := 5; //первое слогаемое = 5
while (sum < 324) do //пока сумма меньше 324
begin
sum := sum + s; //к сумме прибавляем слагаемое
s := s + 4; //увеличиваем слогаемое
i := i + 1; //увеличиваем кол-во слогаемых
end;
writeln ('Слогаемых: '); // выводим кол-во слогаемых
write (i);
end. //конец
Было скучно и я решил замарочиться:DТут и процедура и рекурсия:)Основной блок программы на второй картинке. Const n - размерность матрицы.Понятно дело,что можно намного проще и без рекурсии,но мне интересно было сделать с ней.Не разумно в данном случае.Вы так не делайте:D