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

Найти 10 первых натуральных чисел, оканчивающихся на цифру 7 кратных числу 9, не меньших 100 (Pascal -> C++) - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Повторный ввод данных после ошибки http://www.cyberforum.ru/cpp-beginners/thread1213538.html
как после слов "ошибка!!!..." вернуться для повторного ввода оценки ученику?#include <iostream> #include <fstream> #include <string> using namespace std; int k, i, r; char u; string line;...
C++ Количество трёхзначных чисел, все цифры которых разные Есть задача Составить прорамму , которая считает количество натуральных чисел ,в которых все 3 цифры разные. Вот , что я написал int col = 0; for (int i = 100 ; i < 1000; i++) if (((i/100) !=... http://www.cyberforum.ru/cpp-beginners/thread1213531.html
Поток с бесконечным циклом C++
Добрый вечер всем. Пишу простенькую игру, появилась необходмость в дополнительном потоке. Как не крутил поставленную задачу над игрой, прихожу к одному - бесконечный цикл в точке входа(функции) в...
C++ По заданному году получить по порядку все числа, на которые в каждом месяце попадает последняя пятница
Задали задание, нужна помощь. Заранее благодарю. Написать программу в C++. Задание: В библиотеке каждая последняя пятница каждого месяца- санитарный день. Составить прогу , которая позволяла бы...
C++ Записать целое число буквами (можно ли упростить код?) http://www.cyberforum.ru/cpp-beginners/thread1213446.html
Здравствуйте помогите упростить код. Условие: Напишите программу которая вводит целое число, не превышающее 100, и выводит его прописью, например, 21→"двадцать один". Мой код #include...
C++ Правильно ли реализовано удаление элемента из массива и совершен вызов деструктора? я ведь правильно определил удаление элемента из массива и совершил вызов деструктора? class ECM { ..... } ECM *pECM; .... void ECM::~ECM() { cout<<"Удален"; подробнее

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

Найти 10 первых натуральных чисел, оканчивающихся на цифру 7 кратных числу 9, не меньших 100 (Pascal -> C++) - C++

21.06.2014, 01:57. Просмотров 1726. Ответов 2
Метки (Все метки)

Найти 10 первых натуральных чисел, оканчивающихся на цифру 7 кратных числу 9 и находящихся в интервале левая граница которого равна 100
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var i, v : integer;
begin
v:=99;
    for i := 1 to 10 do begin
        while true do begin
            Inc(v);
            if ((v - 7) mod 10 = 0) And (v mod 9 = 0) then begin
                writeln(v);
                break;
            end;
        end;
    end
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru