Лидеры рейтинга

ID: 259041

Алексеев Владимир Николаевич

Мастер-Эксперт

340

Россия, пос. Теплоозёрск, ЕАО


ID: 401284

Михаил Александров

Советник

267

Россия, Санкт-Петербург


ID: 400669

epimkin

Профессионал

254


ID: 137394

Megaloman

Мастер-Эксперт

122

Беларусь, Гомель


ID: 405239

al4293189

1-й класс

86


ID: 401888

puporev

Профессор

69

Россия, Пермский край


ID: 325460

CradleA

Мастер-Эксперт

65

Беларусь, Минск


8.9.8

01.08.2021

JS: 2.9.16
CSS: 4.5.14
jQuery: 3.6.0
DataForLocalStorage: 2021-08-03 10:16:01-standard


Создание программ на языках Pascal, Delphi и Lazarus.

Администратор раздела: Зенченко Константин Николаевич (Старший модератор)

Консультация онлайн # 200965

Раздел: Pascal / Delphi / Lazarus
Автор вопроса: oligator.a.y (Посетитель)
Дата: 26.05.2021, 08:19 Консультация закрыта
Поступило ответов: 1

Здравствуйте! У меня возникли сложности с таким вопросом:
Написать 3 варианта программы на паскаль турбо с использованием операторов for, while, repeat until для решения задачи: задано целое положительное число n. Определить значение выражения на скрине

-----
Прикрепленные файлы:

Ответ # 281219 от puporev
Код [Pascal]
uses crt;
var n,i,s:integer;
    p:real;
begin
clrscr;
repeat
write('Введите натуральное n>2 n=');
readln(n);
until n>2;
s:=0;
for i:=3 to n do
s:=s+i-2;
p:=s/(n+1)+n*n*n;
writeln('В цикле for P=',p:0:3);
i:=3;
s:=0;
while i<=n do
 begin
  s:=s+i-2;
  i:=i+1;
 end;
p:=s/(n+1)+n*n*n;
writeln('В цикле while P=',p:0:3);
i:=3;
s:=0;
repeat
s:=s+i-2;
i:=i+1;
until i>n;
p:=s/(n+1)+n*n*n;
writeln('В цикле repeat P=',p:0:3);
readln
end.

puporev

Профессор
26.05.2021, 10:30
Мини-форум консультации # 200965

Нет сообщений в мини-форуме

Возможность оставлять сообщения в мини-форумах консультаций доступна только после входа в систему.
Воспользуйтесь кнопкой входа вверху страницы, если Вы зарегистрированы или пройдите простую процедуру регистрации на Портале.

Лучшие эксперты раздела

Зенченко Константин Николаевич

Старший модератор

Рейтинг: 88

puporev

Профессор

Рейтинг: 69

Лысков Игорь Витальевич

Мастер-Эксперт

Рейтинг: 0

Асмик Гаряка

Советник

Рейтинг: 0

Орловский Дмитрий

Мастер-Эксперт

Рейтинг: 0

lamed

Академик

Рейтинг: 0