Посчитать сумму пяти введенных чисел двумя способами:1) с помощью цикла «пока»; 2) с
Посчитать сумму пяти введенных чисел двумя способами:1) с помощью цикла «пока»; 2) спомощью цикла «для каждого». ПОЖАЛУЙСТА, ОЧЕНЬ НАДО!
Гость
Ответ(ы) на вопрос:
Гость {
Free Pascal Compiler version 2.6.4+dfsg-8 [2015/08/14] for x86_64
Copyright (c) 1993-2014 by Florian Klaempfl and others
}
program X_and_Y;
Var count, n, sum : integer;
begin
writeln('Введите 5 чисел:');
count:=1;
sum:=0;
while count<=5 do begin
readln(n);
sum := sum+n;
inc(count);
end;
writeln('Сумма равна ', sum);
sum := 0;
for count:=1 to 5 do begin
readln(n);
inc(sum, n);
end;
writeln('Сумма равна ', sum);
end.
Не нашли ответ?
Похожие вопросы