Int a[10][10];
a[0][2] = 1;
a[0][4] = 2;
a[0][6] = 3;
a[0][8] = 4;
a[2][2] = 5;
a[2][4] = 6;
a[2][6] = 7;
Pascal:
var x,y:integer;
begin
readln (x,y);
if (x>0) and (y>0) then writeln ('Точка лежит в первой четверти');
if (x<0) and (y>0) then writeln ('Точка лежит во второй четверти');
if (x<0) and (y<0) then writeln ('Точка лежит в третьей четверти');
if (x>0) and (y<0) then writeln ('Точка лежит в четвертой четверти');
if (x=0) and (y=0) then writeln ('Точка лежит на пересечении осей') else
if x=0 then writeln ('Точка лежит на оси ординат') else if y=0 then writeln ('Точка лежит на оси абсцисс');
readln;
end.
Var
d, a, b, c, x1, x2: real;
begin
writeln('Введите a, b, c');
readln(a, b, c);
d := b * b - 4 * a * c;
if d > 0 then
begin
x1 := (-b + sqrt(d)) / (2 * a);
x2 := (-b - sqrt(d)) / (2 * a);
writeln('x1 = ', x1:2:2);
writeln('x2 = ', x2:2:2);
end
else if d = 0 then
begin
x1 := -b / (2 * a);
writeln('x = ', x1:2:2);
end
else
writeln('Нет действительных корней');
end.
Программу написал HRAshton. Я немного изменил
алг
нач
целтаб арр[1:3, 1:3]
цел к, п, ш
нц для ш от 1 до 3
нц для к от 1 до 3
арр[ш, к] := int(rnd(900)+100)
вывод арр[ш, к], ' '
кц
вывод нс
кц
нц для ш от 1 до 3
если ш<>2
то
п := арр[ш, 1]
арр[ш, 1] := арр[ш, 3]
арр[ш, 3] := п
все
кц
вывод нс, нс
нц для ш от 1 до 3
нц для к от 1 до 3
вывод арр[ш, к], ' '
кц
вывод нс
кц
кон
<span>
</span>
Можно использовать:
1) Сайт с электронными книгами
<span>3) Компьютер
4) Флэш карта</span>