Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/7: Рейтинг темы: голосов - 7, средняя оценка - 5.00
Insomn1a
0 / 0 / 0
Регистрация: 10.01.2010
Сообщений: 5
1

Дано целое число N (> 1). Вывести наибольшее целое K...

10.01.2010, 23:40. Просмотров 1369. Ответов 1
Метки нет (Все метки)

Дано целое число N (> 1). Вывести наибольшее целое K, при котором выполняется неравенство 3K < N, и само значение 3K
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.01.2010, 23:40
Ответы с готовыми решениями:

Дано целое число N (> 1). Найти наибольшее целое число K, при котором выполняется неравенство 3K < N.
Дано целое число N (&gt; 1). Найти наибольшее целое число K, при котором...

Дано целое число N(>1) вывести на именьшее целое K,при котором выполняется неравенство
Дано целое число N(&gt;1) вывести на именьшее целое K,при котором выполняется...

Дано целое число. Вывести его строку-описание вида «отрицательное четное число», «нулевое число »,« положительное нечетн
Дано целое число. Вывести его строку-описание вида «отрицательное четное...

Дано целое число N (> 1). Вывести последовательность чисел Фибоначчи Fk
Дано целое число N (&gt; 1). Последовательность чисел Фибоначчи Fk до (целого...

Дано вещественное число A и целое число N (> 0). Используя один цикл, вывести все целые степени числа A от 1 до N.
Дано вещественное число A и целое число N (&gt; 0). Используя один цикл, вывести...

1
кот Бегемот
Платежеспособный зверь
8502 / 3938 / 1536
Регистрация: 28.10.2009
Сообщений: 10,228
10.01.2010, 23:46 2
Лучший ответ Сообщение было отмечено Insomn1a как решение

Решение

Цитата Сообщение от Insomn1a Посмотреть сообщение
Дано целое число N (> 1). Вывести наибольшее целое K, при котором выполняется неравенство 3K < N, и само значение 3K
Pascal
1
2
3
4
5
6
7
8
9
10
var
n,k:integer;
begin
writeln('vvedite N');
readln(n);
if n mod 3=0 then k:=(n div 3)-1 else k:=n div 3;
writeln('k=',k);
writeln('3k=',k*3);
readln;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.01.2010, 23:46

Дано целое число. Вывести строку — название соответствующей цифры
Плииииииииииз спасите мою шкуру......... Вариант 15. 3. Дано целое число в...

Дано целое число N и набор из N вещественных чисел: A1, A2, ..., AN. Вывести: A1N, A2N–1, ..., AN–12, AN
Дано целое число N и набор из N вещественных чисел: A1, A2, ..., AN. Вывести...

Дано целое число N (1<N<33). Вывести N первых строчных букв русского алфавита
Доброго времени суток всем! Условие : Дано целое число N (1&lt;N&lt;33). Вывести N...


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

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

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