Посчитать сумму пяти введенных чисел двумя способами:1) с помощью цикла «пока»; ...

September 2021 1 8 Report

Посчитать сумму пяти введенных чисел двумя способами:1) с помощью цикла «пока»; 2) с помощью цикла «для каждого». ПОЖАЛУЙСТА, ОЧЕНЬ НАДО!

Answers & Comments

averutin {
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.

0 votes Thanks 1

Answers & Comments

kak vy ponimaete frazu chem bolshe ostanetsya v prirode ne tronutyh ugolkov tem ch

dopisat uravneniya reakciiph3 o2

esli fenotipy gibridov dali rassheplenie v otnoshenii 13 to genotipy roditelej

|x|- 1,5x^2...

рекомендуемые вопросы

Helpful Links

Helpful Social