1.
var i:integer;
begin
for i:=10 to 99 do
if (i mod 3=0)and(i mod 5<>0)
then write(i,' ');
end.
Результат:
<span>12 18 21 24 27 33 36 39 42 48 51 54 57 63 66 69 72 78 81 84 87 93 96 99
2.
var i:integer;
begin
for i:=10 to 99 do
if i div 10 + i mod 10 = 15
then write(i,' ');
end.
Результат:
<span>69 78 87 96 </span></span>
На быстродействие влияет только в том случае, когда для работы операционной системе(ОС) и её программного обеспечения(ПО) не хватает оперативной памяти(ОЗУ). В других случаях не влияет, пока не достигнут предел памяти используемого ПО.
Нужно что-то присвоить функции для случая, когда (2*a+b-c)<0
Например, так:
function sqrt1 (a, b, c: real): real;
begin
if (2 * a + b - c) < 0 then
<span>begin writeln (' complex number '); sqrt1:=-1; end</span>
else sqrt1:= sqrt(2 * a + b - c);
<span>end;</span>
4, так как углы комнаты находятся напротив друг друга.