If then,тогда 1 оператор
Если if then begin <условие1>; <условие2>; end;
Тогда можно писать бесконечное кол-во операторов
Sub Iter()
Dim s As Double, pi As Double, e As Double, a As Double
Dim i As Long, znak As Integer, k As Long
e = InputBox("введите значение eps")
pi = 4 * Atn(1)
s = pi
i = 2
znak = 1
k = 0
a = Tan(pi / (2 * i))
Do While a >= e
s = s + znak * a
i = i + 1
a = Tan(pi / (2 * i))
znak = -znak
k = k + 1
Loop
MsgBox "Сумма равна " + Str(s) + ", количество слагаемых " + Str(k)
End Sub
Program www;
var x,s:integer;
begin
read (x);
S:=0;
while x<>0 do
begin
If (x mod 5=0) then S:=S+x;
read (x);
end;
write (S);
End.
1) var a,b:integer;beginreadln(a,b);if a>b thenwriteln(a+b,' задача решена')else writeln(a*b,' задача решена');end.
2) !!! ; 3 ; 16 ; 7 ; 8 ; 29 ; 66
3) 1
4) -5; 0; -6; 5; -0.4; 0.32; -17; 15; 11; 7; 8
===== PascalABC.NET =====
begin
var (x, y, z) := ReadReal3('Введи x, y, z:');
var v := (1 + Sqr(Sin(x + y))) /
Abs(x - 2 * y / (1 + x * x * y * y)) * x ** Abs(y) +
Sqr(Cos(ArcTan(1 / z)));
Write(v)
end.