![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Новичок
Джуниор
Регистрация: 16.05.2010
Сообщений: 3
|
![]()
Здравствуйте.
Буду благодарен, если сможете помоч с решением задачи и с ее блок-схемой. Вычислить сумму квадратов натуральных чисел, кратных 3 (3,6,9...), в которую входят слагаемые, не большие 5000. Замечание: Провести решение двумя способами - использую цикл с предусловием WHILE_DO и цикл с постусловием REPEAT_UNTIL. Еще раз заранее благодарю. |
![]() |
![]() |
![]() |
#2 |
ТАМБОВСКИЙ ВОЛК.
Участник клуба
Регистрация: 16.03.2010
Сообщений: 1,354
|
![]() Код:
にんじゃ
![]() |
![]() |
![]() |
![]() |
#3 |
А может и не...
Участник клуба
Регистрация: 27.03.2010
Сообщений: 1,269
|
![]()
Рома, не прокатит твоя программа из-за неправильно заданных типов данных.
Проанализируй сколько будет 5000 в квадрате и какой диапазон имеют примененные тобой типы данных. ![]()
Перемешивай дело с бездельем и не сойдешь с ума...
|
![]() |
![]() |
![]() |
#4 | |
ТАМБОВСКИЙ ВОЛК.
Участник клуба
Регистрация: 16.03.2010
Сообщений: 1,354
|
![]() Цитата:
![]()
にんじゃ
![]() |
|
![]() |
![]() |
![]() |
#5 |
Новичок
Джуниор
Регистрация: 16.05.2010
Сообщений: 3
|
![]()
Исправьте, что не так.
1 способ) program lavr_lab10_1; var a,n:real; c,m:integer; begin c:=1; n:=0; while n<5000 do begin a:=3*c; a:=power(a,3); c:=c+1; n:=n+a; end; writeln(n-a); end. Тут вроде все верно. а вот тут не получается 2 способ) Program lavr_lab10_2; var a,n:real; c,m:integer; begin c:=1; n:=0; repeat a:=3*c; a:=power(a,3); c:=c+1; n:=n+a; until n<=5000; writeln(n-a); end. |
![]() |
![]() |
![]() |
#6 |
ТАМБОВСКИЙ ВОЛК.
Участник клуба
Регистрация: 16.03.2010
Сообщений: 1,354
|
![]()
А ты уверен что ответ будет 2700?Чёт меня терзают сомнения что сумма квадратов чисел кратных трём в диапазоне до 5000 будет равна этому числу.
![]() ![]() ![]()
にんじゃ
![]() |
![]() |
![]() |
![]() |
#7 |
Новичок
Джуниор
Регистрация: 16.05.2010
Сообщений: 3
|
![]()
Будь добр, помоги исправить.
Я без понятия что чему должно быть равно) |
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Turbo C. Сумма квадратов положительных элементов массива | ТАМ | Помощь студентам | 2 | 09.12.2009 14:53 |
Сумма максимальных элементов матриц в Pascal | Бармалей | Помощь студентам | 19 | 19.11.2009 15:59 |
[Pascal] сумма чисел входящих в строку | Рамик | Помощь студентам | 5 | 03.06.2009 16:28 |