Паскаль АВС:
<span>
Числа a и b имеют разную четность.
if (a mod 2) <> (b mod 2) then
Одно из чисел a и b положительно.
</span><span><span>if (a >0) or (b >0) <span>then
</span></span>Одно из чисел a и b является квадратом другого.
if (a=b*b) or (b=a*a) then
Точка A(x,y) принадлежит первому или второму квадранту.
</span><span><span>if (y >0) <span>then
</span></span>Число a не больше среднего арифметического чисел b, c, d.</span>
<span>if (a <= (b+c+d)/3) <span>then</span></span>
2) Команда( B:= 3) Значение переменной 3
3)Имя переменной С ,Значение переменной 2+3
Ахахах ты что с другой планеты??? Это программа на компьютере в которой презентации делают!!!!)))))))
1) вводим X
2) если X < 0 то Y = | X | иначе Y = √X
3) выводим Y
Const n=8;
var a:array[1..n,1..n] of integer;
i,j:integer;
begin
for i:=1 to n do a[i,i]:=n-i+1;
for i:=1 to n do
begin
for j:=1 to n do write(a[i,j]:2);
writeln;
end;
end.
Пример:
8 0 0 0 0 0 0 0
0 7 0 0 0 0 0 0
0 0 6 0 0 0 0 0
0 0 0 5 0 0 0 0
0 0 0 0 4 0 0 0
0 0 0 0 0 3 0 0
0 0 0 0 0 0 2 0
0 0 0 0 0 0 0 1