S:=0
For i:=1 to 10
S:=s+2*i
i:=1
S:=o+2*1=2
i:=2
S:=2+2*2=6
i=3
S=6+2*3=12
i=4
S=12+2*4=20
i=5
S=40+2*5=50
i=6
S=50+2*6=62
i=7
S=63+2*7=77
i=8
S=77+2*8=93
i=9
S=93+2*9=111
i=10
S=111+2*10=131
Ответ=131
<em>// PascalABC.NET 3.3, сборка 1611 от 06.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (a,b,c):=ReadReal3('Введите три числа:');
if b.Between(a,c) then (a,b,c):=(2*a,2*b,2*c);
if (a<0) or (b<0) or (c<0) then (a,b,c):=(Abs(a),Abs(b),Abs(c));
Writeln('a=',a,', b=',b,', c=',c)
end.
Пример
Введите три числа: 3.6 -5.2 8
a=3.6, b=5.2, c=8
Первый оператор читает с клавиатуры три вещественных числа и помещает их в переменные a,b,c.
Второй оператор проверяет, находится ли второе число (b) между остальными двумя (может и совпадать с одним из них). Если да, то значение каждой переменной удваивается.
Третий оператор проверяет, есть ли среди введенных чисел хоть одно отрицательное. Если есть, значения заменяются их модулями (становятся положительными).
И в конце следует вывод результатов.
<span>Алфавит шестнадцатеричной системы счисления - 0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F</span>
print(max(7,22,37,16,8))
print(sum([17, 22, 37, 12.5, 13, 33.4, 9]))
print(37%5)
import random
print(random.randint(5,20))
print(int(46.7))
print(int('78'))
import math
print(math.pi)
print(math.e)
print(math.factorial(7))
Const
n=12;
var
b:array[1..n] of integer;
i,k:integer;
begin
Randomize;
Write('Последовательность: ');
for i:=1 to n do begin
b[i]:=Random(41)+10;
Write(b[i],' ')
end;
Writeln;
k:=5;
for i:=6 to n do
if b[i]>b[i-1] then k:=i
else break;
if k=n then Writeln('Последние 8 элементов в возрастающей последовательности')
else
if k>5 then Writeln('Возрастание элементов идет с номера 5 по ',k)
else Writeln('Следующий за пятым элемент не возрастает')
end.
Пример
Последовательность: 44 10 33 40 15 33 45 26 43 45 49 48
Возрастание элементов идет с номера 5 по 7