• дано n произвольный чисел,найти их сумму (паскаль ABC).
    Решить пожалуйста в 3-х циклах,(for;repeat and until;while)

Ответы 1

  • 1)var n,a,s,i:integer;beginwrite('n = ');readln(n);writeln('Введите ',n,' чисел:');s:=0;for i:=1 to n do begin read(a); s:=s+a; end;writeln('s = ',s);end.2)var n,a,s,i:integer;beginwrite('n = ');readln(n);writeln('Введите ',n,' чисел:');s:=0;i:=0;repeat i:=i+1; read(a); s:=s+a;until i=n;writeln('s = ',s);end.3)var n,a,s,i:integer;beginwrite('n = ');readln(n);writeln('Введите ',n,' чисел:');s:=0;i:=0;while i<n do begin i:=i+1; read(a); s:=s+a; end;writeln('s = ',s);end.Пример:n = 5Введите 5 чисел:8 2 9 6 4s = 29
    • Автор:

      indyzbwp
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years