Форум программистов, компьютерный форум, киберфорум
Наши страницы

задачи в C++: Циклы. Одномерный массив - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Дано натуральное число.Определить,сколько раз в нём встречается минимальная цифра(например, для числа 102200 ответ равен 3,для числа 40330-2,для числ http://www.cyberforum.ru/cpp-beginners/thread392147.html
Дано натуральное число.Определить,сколько раз в нём встречается минимальная цифра(например, для числа 102200 ответ равен 3,для числа 40330-2,для числа 10345-1)?
C++ Известны оценки по физике каждого ученика двух классов.Определить средниюю оценку в каждом классе.Количество учащихся в каждом классе одинаковое! Известны оценки по физике каждого ученика двух классов.Определить средниюю оценку в каждом классе.Количество учащихся в каждом классе одинаковое! http://www.cyberforum.ru/cpp-beginners/thread392146.html
Известен рост трех человек.Определить,одинаков ли их рост? C++
Известен рост трех человек.Определить,одинаков ли их рост?
Как сделать шаблон функции для определения максимального расстояния между элементами C++
Написать программу которая использует шаблон функции для определения максимального расстояния между элементами в наборе в 5 элементов. Проверьте программу используя 5 целых чисел, 5 чисел с плавающей...
C++ Pointer. Int * http://www.cyberforum.ru/cpp-beginners/thread392135.html
Создать функцию, которая находит максимальное значение из int *a pointer (подсказка: используйте *a pointer как динамичный массив, также используйте strlen() для размера массива. я научилась...
C++ Поменять местами заданные квадраты матрицы Привет Всем,помогите пожалуйста с задачкой,либо наведите на путь,остальное постараюсь сам сделать(написать) Дана матрица А(8;8). А(0;0) А(0;1) | A(0;6) A(0;7) A(1;0) A(1;1) ... подробнее

Показать сообщение отдельно
Duntes
0 / 0 / 0
Регистрация: 25.11.2011
Сообщений: 10
29.11.2011, 17:07  [ТС]
Пожалуйста, можете перевести это в C++? Заранее спасибо надеюсь вы поможете.
C++
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
{
  Дано натуральное k. 
    Напечатать k-ю цифру последовательности 149162536..., 
    в которой выписаны подряд квадраты всех натуральных чисел.}
 
var k, CurLen : integer;
  i, iSQR : Longint;
  sSQR : string;
begin
  WriteLn('Введите k');
  ReadLn(k);
  CurLen := 0;
  i := 1;
  iSQR := SQR(i);
  str(iSQR,sSQR);
  WriteLn('>'+sSQR+'<');
  while (CurLen+Length(sSQR)) < K do 
  begin
    CurLen := CurLen + Length(sSQR);
    inc(i);
    iSQR := SQR(i);
    str(iSQR,sSQR);
    WriteLn('>'+sSQR+'<');
  end;
  WriteLn(k:1,'-я цифра в последовательности = ',Copy(sSQR,K-CurLen,1));
end.
0
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.