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

Перевод программы - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ определить строки этого файла, содержащие максимальную по длине подстроку http://www.cyberforum.ru/cpp-beginners/thread69031.html
Всем здрасти!Помогите пожалуйста написать программку на файлы. Спс. Задан текстовый файл input.txt. Требуется определить строки этого файла, содержащие максимальную по длине подстроку, состоящую...
C++ МАСсив Дана действительная матрица А размером MxN, где M, N - заданные натуральные числа Сформировать одномерный действительный массив В, в котором элемент B(j) равен 1, если элементы j-ого столбца матрицы... http://www.cyberforum.ru/cpp-beginners/thread69018.html
Обработка файлов в c++ C++
Ребята моя программа создаёт базу данных простенькую, и всё введенное в консоль сохраняет в txt файл. Мне нужно её доработать так чтобы я мог осуществить поиск по этой базе и отредактировать...
C++ Найти среднее арифметическое цифр числа
здравствуйте, есть задача, что-то никак не могу сообразить помогите пожалуйста задание: Вводится последовательность из N целых чисел. Найти среднее арифметическое его цифр.(функцией оформить...
C++ генератор случайных вопросов в формах http://www.cyberforum.ru/cpp-beginners/thread68988.html
Помогите сделать так, чтобы по нажатию кнопки генерировалось число и в label2 показывался какой вопрос идет по счету,а по окончании 5 вопросов, выскакивал MessageBox на сколько вопросов отвечено...
C++ Одномерный массив Помогите плз решить задачку... В стиле с++ В одноменом массиве, состоящем из N вещественных элементов, вычислить: 1) Сумму положительных элементов массива; 2) Произведение элементов массива,... подробнее

Показать сообщение отдельно
noyslaid
0 / 0 / 0
Регистрация: 30.11.2009
Сообщений: 3

Перевод программы - C++

30.11.2009, 21:18. Просмотров 376. Ответов 1
Метки (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var
  i,            
  n,             
  k : byte;      
  a,b,c : real;  
begin
  readln(n);
  for i:=1 to n do
    begin
      readln(a,b,c);
 if (a<(b+c)) and (b<(a+c)) and (c<(a+b)) then
         k:=k+1;
    end;
  writeln(k)
end.
Перевести в си++
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru