Var i,s,n: Integer;
begin
readln(n);
for i := 1 to n do begin
s := s + i;
end;
writeln(s);
end.
вродибы длина кода 8 бит(а там посчитать не сложно)
Бублічистичний, науковий, політичний, морально етичний, економічний
<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.
Об'єкт керування — це окрема машина, апарат, пристрій, технологічний процес або сукупність технічних засобів (машин, апаратів, пристроїв), які виконують технологічний процес, але при цьому потребують спеціально організованих впливів ззовні для досягнення поставленої мети керування.