Var
n, i, s: integer;
begin
readln(n);
s := 2 * n;
i := 1;
repeat
s := s + 2 * (n + i);
i := i + 1;
until i > n;
writeln(s);
end.
<h3>PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrRandom(6, -1, 5);
a.Println;
Writeln('Сумма положительных значений равна ',
a.Where(t -> t > 0).Sum)
end.
<h2>Пример</h2><h3>2 5 1 0 -1 3</h3><h3>Сумма положительных значений равна 11</h3>
Var q1,q2,q3,n:integer;beginwrite('Введите трехзначное число n ');read(n);q3:= n mod 10;q2:= n div 10;q2:= q2 mod 10;q1:= n div 100;writeln(q1:4,q2:4,q3:4);if q2 = q1*q3 thenwrite('Цифра, расположенная в середине числа, равна произведению двух крайних цифр')elsewrite('Цифра, расположенная в середине числа, не равна произведению двух крайних цифр');<span>end.</span>
Ighdjdjdjzngdhfbdhhfchbfjruru
Var a,b,c:integer;
d:string;
begin;
b:=0;writeln('введите строку');
readln(d);
for a:=1 to length(d) do begin
if (d[a]=' ') then b:=b+1;end;
writeln('количество пробелов в строке ==> ', b);
<span>end.</span>