const n=4; m=8;
var a:array[1..n,1..m] of integer;
i,j,x: integer;
begin
x:=1;
for j:=1 to m do
begin
for i:=1 to n do
begin
a[i,j]:=x;
if (j mod 2 = 0) and (i<>n) then x:=x-1
else x:=x+1
end;
x:=x+n-1
end;
for i:=1 to n do
begin
for j:=1 to m do write(a[i,j]:5);
writeln
end
end.
Слово "Алгоритм" происходит от имени известного узбекского учёного Мухаммед аль-Хорезми.
Готово. По крайней мере, это все процедуры, которые я знаю. Рисунок генерируется рандомно. Даже слишком рандомно. Программа во вложении.
<em>// PascalABC.NET 3.2, сборка 1383 от 09.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
<em>№1</em>
begin
var a,b,u:real;
Write('Введите длины сторон и угол между ними в градусах: ');
Read(a,b,u);
Writeln('Длина третьей стороны ',sqrt(a*a+b*b-2*a*b*cos(degtorad(u))):0:3)
end.
<u>Пример</u>
Введите длины сторон и угол между ними в градусах: 10.3 15 47.4
Длина третьей стороны 11.042
<em>№2</em>
begin
Writeln(ReadSeqInteger(3).Any(i->i.IsEven)?'Да':'Нет')
end.
<u>Примеры</u>
41 53 107
Нет
159 -14 17
Да