|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
12.02.2008, 20:03 | #1 |
Пользователь
Регистрация: 07.02.2008
Сообщений: 15
|
нужна помощь с решением следующих задач! =>
Здравствуйте!Очень прошу о помощи вот в этих задачах =>
1.Если сумма трёх попарно различных действительных чисел х,у,z меньше единицы , то наименьшее из этих трёх заменитиь полусуммой двух других; в противном случае заменить меньшее из ъ и у двух оставшихся чисел. 2.Даны натуральные числа n, a1,…,an, где n≤3000. Найти члены ak последовательности a1,…,an, являющиеся квадратами четных чисел, и определить их количество. п.с Это на паскале нужно сделать...пожалуста помогите чем сможите |
12.02.2008, 20:25 | #2 |
Пользователь
Регистрация: 04.02.2008
Сообщений: 35
|
Напиши пояснение к 1-й задаче, особенно к последней части!
|
12.02.2008, 21:03 | #3 |
Пользователь
Регистрация: 04.02.2008
Сообщений: 35
|
Если уменя еще остались какие-то знания по математике, то наверно так:
Program zadach2; var k,i:integer; n:real; begin k:=0; i:=2; While n<=3000 do begin n:=SQR(i); if n<3000 then begin k:=k+1; Writeln(k,' Znachenie =',n:6:2); end; i:=i+2; end; Writeln('Kolichestvo =',k); end. |
12.02.2008, 21:12 | #4 |
Пользователь
Регистрация: 07.02.2008
Сообщений: 15
|
|
12.02.2008, 21:23 | #5 |
Пользователь
Регистрация: 04.02.2008
Сообщений: 35
|
в противном случае заменить меньшее из ъ и у двух оставшихся чисел.
Здесь что написано, так и было в задании? |
12.02.2008, 21:48 | #6 |
Пользователь
Регистрация: 07.02.2008
Сообщений: 15
|
|
13.02.2008, 09:57 | #7 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
Irat
вы задание сделали не совсем верно. Нужно объявить массив A : array[1..n] of integer; организовать его заполнение (либо с клавиатуры, либо через random() и потом в цикле проверять целым ли получается корень квадратный if INT(SQRT(A[i]))=SQRT(A[i]) then begin Inc(k); Writeln('Число ',A[i]:1,' является квадратом числа ',trunc(sqrt(A[i]])):1) end; Writeln('Всего обнаружено ',k:1,' квадратов!'); |
13.02.2008, 10:35 | #8 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Вторая задача:
Код:
I'm learning to live...
|
13.02.2008, 18:48 | #9 |
Пользователь
Регистрация: 07.02.2008
Сообщений: 15
|
Пожалуста помогите с 1ой задачей!! я сам несправлюсь..никак просто!
|
13.02.2008, 22:26 | #10 | |
Форумчанин
Регистрация: 11.11.2007
Сообщений: 136
|
Цитата:
Код:
ICQ - 446037211
|
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
нужна ваша помощь, решение задач Delphi | Рената | Помощь студентам | 13 | 28.03.2011 17:24 |
Нужна помощь в решении нескольких задач | KpeHDeJIb | Помощь студентам | 16 | 28.06.2008 13:17 |
Нужна помощь в решении двух задач | Exact | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 23.05.2008 09:01 |
помощь с решением следующих задач | BR@BUS | Паскаль, Turbo Pascal, PascalABC.NET | 13 | 20.01.2008 00:58 |