- Справочник юного программиста Pascal/Delphi

Известно число жителей, проживающих в каждом доме улицы. Нумерация домов проведена подряд. Дома с нечетными номерами расположены на одной стороне улицы, с четными- на другой. На какой стороне улицы проживает больше жителей? Использовать только один оператор цикла- Pascal(Паскаль)

Дан текстовый файл. Подсчитать количество символов в каждой строке — Pascal(Паскаль)

var f: text; s: string; k: integer; begin assign(f, ‘C:\Новый текстовый документ.txt’); reset(f); k := 1; //Начинаем с первой строки while not EOF(f) do begin readln(f, s); writeln(k, ‘ Строка имеет длину: ‘, length(s)); //length(s)-считывает количество символов в строке inc(k); end; end.

Дана последовательность целых чисел, оканчивающаяся числом -1. Количество чисел в последовательности не меньше двух. Определить есть ли в ней хотя бы одна пара одинаковых «соседних» чисел. В случае положительного ответа определить порядковые номера чисел первой из таких пар — Pascal(Паскаль)