Sub aaa()
s = 0: sign = 1
i = 1
Do While i <= 100
s = s + sign * i
sign = -sign
i = i + 1
Loop
MsgBox s
End Sub
В результате будет получено значение -50.
Var
x, y, s: real;
begin
readln(x);
readln(y);
s := abs(x) - abs(y) / 1 + abs (x*y);
writeln(s);
<span>end.</span>
Книгу надо открыть и начать читать, альбом открыть и просматривать, запись прочитать, электронный дневник зайти зарегистрироваться на сайте и открыть нужный файл, СD начать прослушивать, Сим карту вставить в телефон, С водой начать взаимодействовать (потрогать её там), напиток попробовать на вкус.
Const n=10;
var
a: array[1..n] of real;
s, k: real;
i, m: integer;
begin
//считываем данные в массив
for i:=1 to n do
readln(a[i]);
k:=0; m:=0;
//находим сумму и количество целых элементов
for i:=1 to n do
if a[i] = int(a[i]) then
begin
k:=k+a[i];
inc(m);
end;
//находим среднее арифметическое
s := k/m;
writeln(s);
<span>end.</span>