составить программку и блок схему используя операторы FOR,REPEAT,WHILE для задачки :

Составить программу и блок схему используя операторы FOR,REPEAT,WHILE для задачи : вычислить сумму первых m естественных чисел.
дано число x и последовательность 1,1+ 1/2,1+1/2+1/3,...отыскать 1-ое число этой последовательности большее ,чем х вывести порядковый номер число и его величину .

Задать свой вопрос
1 ответ
Var sum:real; n:real; BEGIN sum:=0; n:=1; while n lt;= 30 do begin sum:=sum+n; n:=n+0.5; end; writeln('Сумма одинакова: ',sum); END.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт