Пишу с телефона если есть возможность-проверь.Если справился,буду рад)
Uses CRT;
Var a,b,c,D,x,x1,x2 : integer;
Begin
D:=0;
Writeln('Дано уравнение ax^4+bx^2+c=0,введите а,b,c);
Readln(a);readln(b);readln(c);
D:=b*b - 4*a*c;
If D<0 then writeln('Нет корней');if X=0 then writeln('Уравнение имеет 1 корень-',(-b/2a)*b');
if D>0 then begin
x1:=(-b+ sqrt D)/2a;
x2:=(-b- sqrt D)/2a;
writeln('Корни вашего уравнения:');writeln('x1=',x1*b,'x2=',x2*b);
End;
End.
Обратите внимание на то,что русская и английская буква 'а' визуально идентична.
var a,b:String;
begin
a:= ReadString();
b:= ReadString();
WriteLn();
if a.Contains('а') <> true then
WriteLn(a);
if b.Contains('а') <> true then
WriteLn(b);
end.
Program gt;
label 1;
var a:array[1..30]of integer;
i,min:integer;
begin
randomize;
min:=200;
1:
for i:=1 to 30 do
begin
a[i]:=random(101);
if(a[i]<min)and(a[i]>=20)then min:=a[i];
end;
if(min<>200)then begin
for i:=1 to 30 do
write(a[i],' ');
writeln;
writeln(min);
exit;
end;
if(min=200)then goto 1;
end.
Var n: integer;
function oct(x: integer): string;
var s: string;
begin
while x > 0 do
begin
s := IntToStr(x mod 8) + s;
x := x div 8;
end;
Result := s;
end;
begin
write('Введите число: ');
readln(n);
writeln('Восьмиричная форма: ', oct(n))
<span>end.</span>
1 дюйм = 2,54 см
7,62 см * 7,62 см = 3 дюйма * 3 дюйма
Количество точек сканированного изображения = 1200*1200*3*3
32 бита = 32/8 байт = 4 байта
Объем изображения = 1200*1200*3*3*4 байт = 1200*1200*3*3*4/1024 Кбайт = 50625 Кбайт = 50625/1024 Мбайт ≈ 50 Мбайт