Var
x,i:integer;
f:boolean;
begin
f:=true;
for i:=1 to 3 do
begin
write('Введите N',i,': ');
readln(x);
if x>=5 then f:=false;
end;
if f then writeln('Все товары хорошие') else writeln('Есть плохие товары')
<span>end.</span>
<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
for var i := 0 to Trunc((95 + 100) / 0.5) do
begin
var z := -100 + 0.5 * i;
var y := Abs(z) < 1.5 ? Abs(z) + z * z : 1 / (Abs(z) + 1);
Writeln(z:6:1, y:20:16)
end
end.
<h2>Результаты (приведены начало и конец)</h2><h3>-100.0 0.0099009900990099</h3><h3> -99.5 0.0099502487562189</h3><h3> -99.0 0.0100000000000000</h3><h3> -98.5 0.0100502512562814</h3><h3> -98.0 0.0101010101010101</h3><h3>. . . . . . .</h3><h3> 93.0 0.0106382978723404</h3><h3> 93.5 0.0105820105820106</h3><h3> 94.0 0.0105263157894737</h3><h3> 94.5 0.0104712041884817</h3><h3> 95.0 0.0104166666666667</h3>
<h2>Цикл for</h2>
- uses Math;
- var
- i: integer;
- sum: real;
- begin
- for i := 1 to 100 do
- Sum := Sum + Sqr(i);
- Writeln(Sum);
- end.
<h2>Цикл while (предусловие)</h2>
- uses Math;
- var
- i: integer;
- sum: real;
- begin
- while i <= 100 do
- begin
- Sum := Sum + Sqr(i);
- i := i + 1;
- end;
- Writeln(Sum);
- end.
<h2>Цикл repeat..until (постусловие)</h2>
- uses Math;
- var
- i: integer;
- sum: real;
- begin
- repeat
- i := i + 1;
- Sum := Sum + Sqr(i);
- until i >= 100;
- Writeln(Sum);
- end.
// Среди чисел 1, 4, 9, 16, 25, ... найти первое число, большее n.
Program<span> cyberforum707298;</span>
var
<span>N :integer; </span><span>// Данное число </span>
<span>otvet :integer; </span><span>// ответ </span>
<span>i:integer; </span><span>// счетчик в цикле </span>
begin
Writeln('Введите целое число (N > 0) N=');
readln(N);
i:=1;
While<span> i*i <= N </span>do<span> inc(i);//</span>
otvet:=i*i;
<span>// вывод ответа </span>
Writeln('Ответ = ',otvet)
<span>end.</span>
