Архивы Программы на Pascal(Паскаль) - Страница 2 из 646 - Справочник юного программиста Pascal/Delphi

Задано предложение и два слова. Сколько всего таких слов в предложении — Pascal(Паскаль)

Дано натуральное число. Определить сумму его цифр, больше пяти — 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('Последовательность…

В трехзначном числе 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.

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

Дано натуральное число. Определить сумму его цифр, больших 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.

Найти среднее арифметическое всех целых чисел от a до b (значения a и b вводятся с клавиатуры, b>=a) — Pascal(Паскаль)

Даны натуральное число n и целые числа х1,х2,…,хn. Выяснить, верно ли, что сумма тех вещественных чисел , которые больше 20,5, меньше p — Pascal(Паскаль)

var p, s, n, i, x: integer; begin writeln(‘Введите n: ‘); Readln(n);//Считываем n for i := 1 to n do begin writeln(‘Введите x:’); Readln(x); if x > 20.5 then//Проверка (x больше 20.5?) s := s + x;//Считаем сумму end; writeln(‘Введите p: ‘); readln(p); if s < p then //Проверка (s меньше p?) Writeln('Верно') else Writeln('Неверно'); end.