Скласти програму, яка:зчитає 3 дійсних Числа a, b і с з клавіатури;опише множину розв'язків нерівності ax + b + с < 0.

program z1;  

const n=3; m=4;

var i,j,x:integer;

mas:array [1..n, 1..m] of integer;

begin

x:=5;

for i:=1 to n do

for j:=1 to m do

begin

mas[i,j]:=sqr(x);

x:=x+1

end;

for i:=1 to n do

begin

for j:=1 to m do write (mas [i,j]:5);

writeln

end

end.

Объяснение:

Убрали лишнюю ; в строке: for j:=1 to m do;

Добавили составной оператор (begin - end) после этой строки

Изменили строку x:=x+11; на x:=x+1

Изменили форматированный вывод write (mas [i,j],' '); на write (mas [i,j]:5); - так ровнее будет

Добавили в конце end.

Если всё делать в 1 цикле:

program z1;  

const n=3; m=4;

var i,j,x:integer;

mas:array [1..n, 1..m] of integer;

begin

x:=5;

for i:=1 to n do

begin

for j:=1 to m do

begin

mas[i,j]:=sqr(x);

write (mas [i,j]:5);

x:=x+1

end;

writeln

end

end.

.1) Перейти по ссылке

2) Ввести название в адресную строку

3) Поисковая система

Объяснение:

1.перейти по указанной ссылке ,или по гиперссылке на сайте

2.ввести текст в адресную строку

3.    1. Поиск по любому из слов – результатом поиска является огромный список всех страниц, содержащих хотя бы одно из ключевых слов; может быть использован, когда пользователь не уверен в ключевых словах.

2. Поиск по всем словам – в этом режиме поиска формируется список всех страниц, содержащий все ключевые слова в любом порядке.

3. Поиск точно по фразе – в результате поиска составляется список всех страниц, содержащих фразу, точно совпадающую с ключевой