Program enot;
Var n,s,i:integer;
begin
read(n);
s:=0;
for i:= 1 to n do
if i mod 2 = 0 then
s:=s+i;
writeln('summa = ',s);
end.<span>
2.</span>Program enot;
Var n,p,i:integer;
begin
read(n);
p:=1;
for i:= 1 to n do p:=p*i;
writeln('proizvedenie = ',p);
<span>end.</span>
Человек, умеющий читать и писать, казался египтянам мудрецом потому, что образование в то время мало было развито. И тот человек, который умел читать и писать казался египтянам очень умным, так как в то время практически никто не умел делать это.
Всё сделано лично мной. Копирование запрещено©
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadlnInteger('Количество слов в массиве:');
var a:=ReadArrString('Введите слова, каждое с новой строки:',n);
var s:=a.Select(w->(w,w.Length));
var lm:=s.Max(t->t[1]);
s.Where(t->t[1]=lm).Take(2).Select(t->t[0]).JoinIntoString('')
.Where(c->c in 'AEIOUY').Distinct.Println
end.
//PascalABC.NET версия 3.4.2.1991 от 03.03.19
//Если программа не запускается, то обновите версию
const
m = 99;
var
n, s, d, i, j: integer;
A, B: Array[1..m] of integer;
begin
Randomize;
write('n = ');
readln(n);
for i := 1 to n do
begin
repeat
j := Random(n) + 1
until A[j] = 0;
A[j] := i;
end;
for i := 1 to n do
write(A[i]:3);
writeln;
end.
Контекстное, вроде больше нет
