Программа суммирует n-е количество вводимых с клавиатуры чисел

208

459

Посмотреть ответы 2

Ответы на вопрос:

Vitadem1

Другие предметы

4,5(94 оценок)

program DemoWhile;
var c, n: integer;
x, s: real;
begin
write (‘Введите к-во чисел n=’);
readln (n);
c:=0;
s:=0;
while c<=n do
begin
c:=c+1;
write (c,’-е число:’);
readln (x);
s:=s+x
end;
write (‘Сумма чисел =’,s)
end.

cheknutyi

Другие предметы

4,4(92 оценок)

Я бы не боялась потерять себя потому что нужно жить и не боятся подстраиваться по других не нужно быть одинокой я бы нашла себя лучшую подругу которая я теб и она у меня есть теперь мне не одиноко если у тебя нет друзей наверно потому что ты тихо и одиночка покажи себя им гордой что ты вепеш в себя тогда они поймут что ты сильная и можеш постоять за себя попробуй с кем нибудь заговарить тогда вы начнёте общатся к примеру я тоже не с кем не общалась потом я заговорила с одной девочкой и потом мы с ней подружились ты не должна стыдится ты нравишся себе такой какая ты есть не важно что о тебе люди говарят главное что ты в себя вереш