ПО - это прикладное обеспещивание программ.
А разница между ПО и собственной программой заключается в том что ПО это прикладное, приклодное значет прикладывается к компьютеру, а собственная программа это всеголиш дополнение к компу.
program qq;
uses crt;
var a,x,b:real;
begin
crlscr;
writeln('введите а и b ');
readn(a,b);
if a=0 then
if b=0 then writeln('x любое число')
else writeln('решений нет ')
else begin
x:=(-b/a);
writeln (x);
end;
readln
end.
сорри за то что все в куче
Var
a1,a2:integer;
begin
writeln('Введите а1');
read(a1);
writeln('Введите а2');
read(a2);
a1:=sqr(a1);
a2:=sqr(a2);
if a1>a2 then
writeln('Площадь а1 больше')
else
writeln('Площадь а2 больше');
end.
uses crt;
var
a:array[1..7,1..10] of integer;
b,i,j:integer;
begin
clrscr;
randomize();
//заполнение массива случайными числами
for i:=1 to 7 do
for j:=1 to 10 do
begin
a[i,j]:=random(10);
end;
//вывод массива
for i:=1 to 7 do
begin
for j:=1 to 10 do
write(a[i,j]:3,' ');
writeln();
writeln();
end;
//удаляем строку 6 и меняем 5 и 2 строки местами
for j:=1 to 10 do
begin
a[6,j]:=a[7,j];
a[7,j]:=0;
b:=a[5,j];
a[5,j]:=a[2,j];
a[2,j]:=b;
end;
writeln('Отредактированный массив');
//выводим отредактированный массив
for i:=1 to 6 do
begin
for j:=1 to 10 do
write(a[i,j]:3,' ');
writeln();
writeln();
end;
readln();
end.
НЕ (X < 6), следовательно, X >= 6
X нечетное
Между ними стоит "И", значит условия должны выполняться одновременно.
X >= 6 И X нечетное.
Наименьшее число будет 7.
Ответ: 7
