<span>форматы представления чисел используются в ЭВМ - а, в</span>
Задание №2.
Var a,b:real;
Begin
read (a,b);
if b>0 then writeln (a/b);
<span>end.</span>
<span>Program Ploshad_Priamougolnika;
</span>Var<span>a,b : byte; {стороны прямоугольника}
</span><span>S : word; {вычисляемая площадь прямоугольника}</span>
Begin<span>Writeln ('Введите значения сторон прямоугольника');
</span>Readln (a,b);
S:=a*b;
<span>Writeln ('Площадь прямоугольника =',S);
</span><span>End<span>.</span></span>
Задача №2
uses crt;var x,i: integer; begin cls; write('x= '); readln(x); for i:=1 to x do if (x mod i)=0 then writeln(i);<span>end.
Задача №1
uses crt;var x,a,b,c,i: integer; begin cls; for i:=100 to 999 do begin a:= i div 100; b:= (i - a*100) div 10; c:= (i - a*100 - b*10); if (a+b+c)*(a+b+c)*(a+b+c)=i then begin writeln(i); inc(x); end; end; if x=0 then write('Такого числа нет');<span>end.
Задача №3
uses crt;var x,a,b,i: integer; begin cls; for i:=10 to 99 do begin a:= i div 10; b:= i - a*10; if a=(b*2) then writeln(i); end;<span>end.</span></span></span>