Посчитать сумму пяти введенных чисел двумя способами: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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы