Рубрика: Программы на Pascal(Паскаль)

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

const hmax = 10000; var a: array [1..hmax] of integer; h, n, k, sc: integer; begin Writeln(‘Введите количество членов’); readln(n); for k := 1 to n do begin a[k] := random(10001); {10001 если с нулем, 10000 если начинается с 1} writeln(a[k]); end; k := 1; sc := 1; while sc 0 do begin if (a[k + 1]) < (a[k]) then begin writeln('Первое число,нарушающее упорядоченность : ', a[k + 1]); sc := 0; end; K := k + 1; if k = n then break; end; if sc 0 then writeln('Последовательность…

Read More

В трехзначном числе x зачеркнули первую цифру. Когда оставшееся число умножили на 10, а произведение сложили с первой цифрой числа x, то получилось число 564. Найти число x — Pascal(Паскаль)

var x: integer; begin for x := 100 to 999 do //Задаем границы числа x if (x mod 100) * 10 + x div 100 = 564 then writeln(x); end.

Read More

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

Read More

Дан текстовый файл. Подсчитать количество символов в каждой строке — 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.

Read More

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

Read More

Дано натуральное число. Определить сумму его цифр, больших a (значение a вводится с клавиатуры, 0<=a<=8) - Pascal(Паскаль)

var i, d, a, OneDigit: integer; begin write(‘Введите число:’); read(i); write(‘Введите a: ‘); read(a); if (a >= 0) and (a a then //Проверяем цифру в переменной OneDigit d := d + OneDigit; //Оставляем число, делённое на 10 — отбрасываем правую цифру I := i div 10; until I = 0; writeln(‘Сумма цифр заданого числа равна:’); write(d); end; end.

Read More