Максимум последовательности

Последовательность состоит из натуральных чисел и завершается числом 0. Определите значение наибольшего элемента последовательности. Числа, следующие за нулем, считывать не нужно. Входные данные Вводится последовательность целых чисел, оканчивающаяся числом 0 (само число 0 в последовательность не входит). Выходные данные Выведите ответ на задачу. Исходный код на языке Pascal var a, k: integer; begin read(a); k...
Читать дальше...

Определить число месяца по номеру дня года

По заданному числу n от 1 до 365 определите, на какое число какого месяца приходится день невисокосного года с номером n. Входные данные Дано одно целое число n. Выходные данные Программа должна вывести два числа: число месяца (от 1 до 31) и номер месяца (от 1 до 12), соответствующие дню с номером n. Исходный код...
Читать дальше...

Определить количество вагонов в электричке

Вагоны в электричке пронумерованы натуральными числами, начиная с 1 (при этом иногда вагоны нумеруются от «головы» поезда, а иногда – с «хвоста»; это зависит от того, в какую сторону едет электричка). В каждом вагоне написан его номер. Витя сел в i-й вагон от головы поезда и обнаружил, что его вагон имеет номер j. Он хочет...
Читать дальше...

Определить, является ли год високосным

Требуется определить, является ли данный год високосным. (Напомним, что год является високосным, если его номер кратен 4, но не кратен 100, а также если он кратен 400.) Входные данные Вводится единственное число — номер года (целое, положительное, не превышает 30000). Выходные данные Требуется вывести слово YES, если год является високосным и NO — в противном...
Читать дальше...

Перевод десятичного числа в двоичную систему

Перевести целое десятичное число в двоичную систему счисления. На вход подается десятичное числа. На выходе — представление этого числа в двоичной форме. Исходный код на языке Pascal var a, i: integer; s: string; b: char; begin read(a); while a > 0 do begin if a mod 2 = 0 then begin s := s +...
Читать дальше...

Можно ли купить ровно k шариков мороженого?

В кафе мороженое продают по три шарика и по пять шариков. Можно ли купить ровно k шариков мороженого? Входные данные Вводится число k (целое,положительное) Выходные данные Программа должна вывести слово YES, если при таких условиях можно набрать ровно k шариков (не больше и не меньше), в противном случае — вывести NO. Исходный код на языке...
Читать дальше...

Количество равных из трех

Входные данные Даны три целых числа, записанных в отдельных строках. Определите, сколько среди них совпадающих. Выходные данные Программа должна вывести одно из чисел: 3 (если все совпадают), 2 (если два совпадают) или 0 (если все числа различны). Исходный код на языке Pascal var a, b, c, k: integer; begin read(a, b, c); k := 0;...
Читать дальше...

Определение множественной формы существительного

По данному числу n закончите фразу «На лугу пасется…» одним из возможных продолжений: «n коров», «n корова», «n коровы», правильно склоняя слово «корова». Входные данные Дано число n (n < 100). Выходные данные Программа должна вывести введенное число n и одно из слов (на латинице): korov, korova или korovy, например, 1 korova, 2 korovy, 5...
Читать дальше...

Разбить путь к файлу на части (директории и имя файла)

Ввести адрес файла и «разобрать» его на части, разделенные знаком «/». Каждую часть вывести в отдельной строке. Пример: C:/фото/2013/Поход/vasya.jpg C: фото 2013 Поход vasya.jpg Исходный код на языке Pascal var k, s: string; n: integer; begin read(s); n := 100; while n > 0 do begin n := pos(‘/’, s); if n > 0 then...
Читать дальше...

Определить фамилию и иницицала по полному ФИО

Ввести с клавиатуры в одну строку фамилию, имя и отчество, разделив их пробелом. Вывести фамилию и инициалы. Пример: Иванов Петр Семёнович П. С. Иванов Исходный код на языке Pascal var s, k, m: string; n, i: integer; begin writeln(‘Введите фамилию, имя, отчество’); read(s); n := pos(‘ ‘, s); k := s[n + 1] + ‘.’;...
Читать дальше...