Question

Как решить задачу в Паскале (тема - оператор цикла с предусловием): "Найти сумму А кратных 11 натуральных чисел
Запишите.пожалуйста,решение.

Answer 1

var a,i,s,h:integer;
begin;
s:=0; //0 кратен любому числу
h:=0;
readln(a);
while i<>a do
begin;
inc(i);
s:=s+h;
h:=h+11;
end;
writeln(s);
end.