Вопрос Здравствуйте, можете сказать для чего этот код? это паскаль

[dyerierap]

','program prim;

uses crt;

var n,k: integer;

a1,a2,a3,c:longint;

function F(x:integer):longint;

var i: integer;

rez:longint;

Begin

rez:=1;

for i:=1 to x do

rez:=rez+i;

F:=rez;

end;

Begin

clrscr;

writeln('ww'

readln(n,k);

a1:=F;

a2:=F(k);

a3:=F(n-k);

writeln(a1,',',a2,',',a3);

readln;

end.

 

[MasterMaloy]

Программа определяет функцию F(x), циклом вычисляющую сумму натуральных чисел от 1 до x включительно - эталонный быдлокод.

В основном теле программы вводятся два целых значения n и k и печатаются значения F, F(k), F(n - k).

 

[жанибек]

ну есть функция вычисляющая то ли факториал то ли ещё какую то дичь ну и есть основное тело программы в котором вызывается эта функция и передаются параметры
читаемость кода отвратительная, писал какой то школьник, названия переменных неинформативны и разгадывать что означает бредятина вроде однобуквенных переменных k i с и т.д. это удел школьных учителей

 

[анопа40]

Для настройки вибратора

 

[ky3ea]

Похоже на Турбо Паскаль