Как-то так... )))
Смотри картинки...
Первая - вид формул, вторая - значения...
Ввод матрицы A(n, m)
Цикл по строкам i = от 1 до n
Цикл по столбцам k = от 1 до m
Если A(i, k) = 0, то
Цикл по столбцам j = от 1 до m
Q = A(i, j) : A(i, j) = A(i, m-j+1) :
A(i, m-j+1)
= Q
Конец цикла по j
Конец Если
Конец цикла по k
Конец цикла по i
Вывод матрицы
Конец
По-моему, так.
<span>
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
<span>Program konfeti;
Uses
CRT;
Var
x,m:real; {x-цена за килограмм, m-текущая масса}
Begin
CLRSCR;
m:=1.2;
Write('Введите цену за килограмм конфет:');
Readln(x);
While (m<2.1) do
Begin
Writeln('Цена за ',m:0:2,' кг конфет равна ',m*x:0:2,' рублей');
m:=m+0.2
End;
Readln;
End.</span></span>
Насколько была понятна запись
y= 15x+a; если x>=10; a<=-3;
у = x^(2)+ корень из а; если х<=9;а>5;
program zadacha;varx,y,a: real;
beginwriteln('vvedite x,a');readln(x,a);if (x>=10) and (a<=-3) then y:=15*x+a;if (x<=9) and (a>5) then y:=sqr(x)+sqrt(a);writeln(y);end.