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

Chеmic Chеmic    1   10.07.2019 14:00    2

Ответы
adekvat3 adekvat3  17.09.2020 12:58
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика