Регистрация
pinkiepieanddash
16.05.2022 00:50
Информатика
Есть ответ 👍

Пользователь вводит число n. Напишите программу, которая находит сумму ряда S = 1+2+3+...+n.
Использовать только rереаt until.
.
(в паскале надо )​

210
386
Посмотреть ответы 1

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

edkot
edkot
4,4(21 оценок)

Variant 1

var

 A: array[1..100] of integer;

 N, i, j: byte;

begin

 write('N = ');

 readln(N);

 for i := 1 to N do

 begin

   write('a[', i, '] = ');

   read(a[i])

 end;

 writeln;

 for i := 2 to N do

   for j := 1 to i - 1 do

     if a[i] = a[j] then begin

       writeln('Номера: ', j, ' и ', i);

       exit

     end;

 writeln

end.

Популярно: Информатика