0 / 0 / 0
Регистрация: 22.04.2015
Сообщений: 30
1

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

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

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

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

Заранее большое спасибо !!!
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.04.2015, 15:27
Ответы с готовыми решениями:

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

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

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

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

4
Puporev
28.04.2015, 15:35
  #2

Не по теме:

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

0
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
5046 / 2621 / 2344
Регистрация: 10.12.2014
Сообщений: 9,977
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
Модератор
9534 / 4861 / 3230
Регистрация: 17.08.2012
Сообщений: 15,203
13.05.2015, 01:39 5
JuriiMW, вариант Roman-65 лаконичнее, нежели Ваш. По-моему, незачем плодить лишние сущности. Согласно задания, нужно найти только номер первого шестизначного числа из ряда квадратов натуральных чисел. Не требуется находить все предыдующие квадраты, также в задании не оговорена обязательность применения циклов.

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

Добавлено через 3 минуты
А, может, уже и не нужно ТСу никакое программирование...
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.05.2015, 01:39
Помогаю со студенческими работами здесь

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

Найдите значение первого максимального элемента, а также номер строки и номер столбца, соответствующие этому значению
Пусть матрица А целых чисел размером 100 100 записана по строкам в файле. Найдите значение первого...

Найдите номер первого сотрудника, оклад которого находится в заданном интервале
Известны оклады N сотрудников фирмы . Найдите номер первого сотрудника , оклад которого находится в...

Для каждого числа из второго списка определите номер первого и последнего появления этого числа
Доброго времени суток, пожалуйста, помогите решить задачу :с Дано два списка чисел, числа в первом...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru