С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
Goryn
0 / 0 / 0
Регистрация: 22.04.2015
Сообщений: 25
1

Найдите номер первого шестизначного числа

28.04.2015, 15:27. Просмотров 988. Ответов 4
Метки нет (Все метки)

Помогите пжл очень надо !!! Вопрос отчисления !!! Помогите !!!

Среди чисел 1,4,9,16,25 … найдите номер первого шестизначного числа.

Заранее большое спасибо !!!
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.04.2015, 15:27
Ответы с готовыми решениями:

Найдите номер первого четного числа последовательности чисел
Здесь нужен цикл с четчиком С клавиатуры вводиться n заданных чисел a1, a2,...

Найдите номер первого четного числа последовательности чисел
Сказано что задача решаеться через цикл с четчиком. С клавиатуры вводиться...

Найдите номер первого элемента таблицы,меньшего 4
вот такая задача

Найдите частное от деления нацело первого числа на второе
20. Введите два числа и найдите частное от деления нацело первого числа на...

Проверить, есть ли в нем элементы, равные нулю. Если есть, найдите номер первого из них
Решить: Создать массив с именем А из 10-ти элементов, задав значения его...

4
Puporev
28.04.2015, 15:35
  #2

Не по теме:

Цитата Сообщение от Goryn Посмотреть сообщение
Вопрос отчисления !!!
И это правильно....

0
Roman-65
7 / 1 / 1
Регистрация: 18.04.2015
Сообщений: 17
06.05.2015, 22:41 3
Pascal
1
2
3
Begin
  Writeln(Trunc(Sqrt(99999)+1))
End.
0
JuriiMW
2060 / 1124 / 1598
Регистрация: 10.12.2014
Сообщений: 4,283
07.05.2015, 06:49 4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
function Length(N : Longint) : Integer;
var
  L : Integer;
begin
  L := 0;
  repeat
    Inc(L);
    N := N div 10;
  until N = 0;
  Length := L;
end;
 
var
  N, Q, D : Longint;
  
begin
  N := 1;
  Q := 1;
  D := 2;
  while Length(Q) < 6 do
    begin
      WriteLn(N, '^2 = ', Q);
      Inc(N); Inc(Q, D); Inc(D, 2);
    end;
  WriteLn('Номер первого шестизначного: ', N);
  WriteLn(N, '^2 = ', Q);
end.
Добавлено через 5 минут
Хотя, наверное, проще без функции:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var
  N, Q, D : Longint;
  
begin
  N := 1;
  Q := 1;
  D := 2;
  while Q < 99999 do
    begin
      WriteLn(N, '^2 = ', Q);
      Inc(N); Inc(Q, D); Inc(D, 2);
    end;
  WriteLn('Номер первого шестизначного: ', N);
  WriteLn(N, '^2 = ', Q);
end.
0
Cyborg Drone
Модератор
5478 / 3295 / 2482
Регистрация: 17.08.2012
Сообщений: 10,586
13.05.2015, 01:39 5
JuriiMW, вариант Roman-65 лаконичнее, нежели Ваш. По-моему, незачем плодить лишние сущности. Согласно задания, нужно найти только номер первого шестизначного числа из ряда квадратов натуральных чисел. Не требуется находить все предыдующие квадраты, также в задании не оговорена обязательность применения циклов.

Добавлено через 17 минут
Хотя... Сейчас так учат программированию, что глядеть тошно... Попадаются задания наподобие доехать из Белого Яра до Чапаева, но обязательно через Амстердам... Может, ТСу как раз и надо через циклы, кто знает, на котором этапе обучения ему задачу задали...

Добавлено через 3 минуты
А, может, уже и не нужно ТСу никакое программирование...
0
13.05.2015, 01:39
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.05.2015, 01:39

Найти номер первого вхождения числа в последовательность
Помогите пожалуйста!!!(((( 7) Даны последовательность из n целых чисел и...

Вывести номер первого числа в наборе, большего К
Помогите решит вот эти 2 задачи : 1) Дано целое число К и набор ненулувых...

Вывести номер первого числа в наборе, больше К
Составить блок-схему алгоритма и написать программу обработтки одномерного...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru