Var s:string; a,b:real; begin readln(s); a:=strtofloat(copy(s,1,pos('X',s)-1)); b:=strtofloat(copy(s,pos('=',s)+1,length(s)-pos('=',s))); if (a=0) and (b=0) then begin writeln('X-любое действительное число'); exit; end else if a=0 then begin writeln('Нет корней'); exit; end; writeln(b/a); end.
Var i,sum,n,count: Integer; begin writeln('Введите максимальное число диапазона'); readln(n); for i:=1 to n do begin Inc(sum,i); Inc(count); end; writeln('Кол-во чисел: ',count); writeln('Сумма чисел равна: ',sum); end.
Var a,b:array[1..10] of integer;i,j,min,min2,sum:integer;beginrandomize;for i:=1 to 10 dobegina[i]:=random(10);writeln(a[i]);end;min:= a[1]; for i:= 2 to 10 dobeginif (a[i] < min) then min:= a[i]; end;writeln('минимальный элемент 1 массива ',min);writeln('2 msssiv');for j:=1 to 10 dobeginb[j]:=random(10);writeln(b[j]);end;min2:=b[1];for j:=2 to 10 dobeginif ( b[j] < min2 ) then min2:= b[j]; end;writeln('минимальный элемент 2 массива',min2);sum:=min+min2;writeln('summa min:',sum);end.