//Pascal ABC.NET 3.1 сборка 1256
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.
Пример ввода:
-0.1X=10
Пример вывода:
-100
Function reverse(x:longint):longint;beginvar a,b:integer;a:=0;b:=0;while x>0 dobegina:=(x mod 10);b:=((b*10)+a);x:=(x div 10);reverse:=b;end;end;var c:longint;beginwriteln('введите число');read(c);write('ваш ответ ', reverse(c));end.
Вот так как-то вроде ничего непонятного если, что пиши-поясню.
(x>0) and (x<5) это будет на языке паскаль
I диск = 650 Мбайт
записываем фильм 600 Мбайт < 650 Мбайт
II диск =650 Мбайт
записываем два фильма 55+400 = 450 Мбайт < 650 Мбайт
III диск = 650 Мбайт
записываем музыку 100*3,5=350 Мбайт < 650 Мбайт
Uses crt;
const n=5;
m=5;
var a:array[1..n,1..m] of integer;
i,b,j,k:integer;
begin
randomize;
for i:=1 to n do
for j:=1 to m do
begin
a[i,j]:=random(40)-20;
write(a[i,j]:3);
end;
writeln;
k:=1;
b:=20;
repeat
for i:=k to k do
for j:=1 to m do
if (a[i,j]<b) then b:=a[i,j];
writeln(b);
inc(k);
b:=20;
until k>n;
end.