Program z1;
var a,b,c:real;
begin
writeln('введите 2 числа');
readln(a,b);
if (a>b) then c:=a/b
else c:=b/a;
writeln(c);
end.
var
i:integer;
s,m:string;
begin
<em>readln(s);
</em>
for i:=1 to Length(s) do
if s[i] in ['0'..'9'] then m:=m+s[i];
<em>write(m);</em>
<span>end.</span>
Исходная :
5*<span>4-2
</span><span>5-4:2
</span>Новая:
<span>18 и 3</span>
var a,a1,a2,sum,n,i:integer;
begin
readln (n);
for i:=1 to n do
begin
readln (a);
a1:=a div 10;
a2:=a mod 10;
if (a1=1) or (a2=1) then sum:=sum+a;
end;
writeln (sum);
end.
var m,n: integer;
begin
write('Введите два числа: ');
readln(m,n);
if abs(m) > abs(n) then writeln(m-100);
<span>end.</span>