Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Подсчитать количество заданной буквы в слове https://www.cyberforum.ru/ turbo-pascal/ thread367409.html
Подскажите пожалуйста,как написать программу,где пользователь вводил бы букву и слово,а на выходе получал бы количество этой буквы в введенном слове
после каждой буквы вставить заданный символ. Turbo Pascal
1. Составить программу которая в заданном тексте после каждой буквы вставляет заданный символ. 2. Дан текст напишите программу правильности написания ча-ща, чу-щу, жи-ши.
Turbo Pascal задача о числе пелля. помогите Числа Пелля определяются так: первое число равно 1, второе равно 2, каждое следующее равно a(n)=2a(n-1)+a(n-2). Составить программу, которая находит сумму первых k чисел Пелля (k – задается пользователем). Определить количество первых чисел Пелля, таких, что значение их суммы не превышает диапазона типа integer (longint). Вывести в виде таблицы данное значение суммы и три предыдущих значения... https://www.cyberforum.ru/ turbo-pascal/ thread367388.html Turbo Pascal количество нечетных элементов массива https://www.cyberforum.ru/ turbo-pascal/ thread367371.html
Дан массив A размерностью М, подсчитать количество нечетных элементов массива
Turbo Pascal помогите исправить программу
Нужно было из двух,отсортированных в убывающем порядке массивов получить новый,отсортированный в том же порядке... Program lab_5; const num=20; var k, c, i, j, n, m:integer; x, y, z:array of integer; begin writeln('n, m='); readln(n, m); for i:= 1 to n do begin write('x='); readln(x); end; for j:= 1 to m do begin write('y='); readln(y); end; k:=0;
Turbo Pascal Количество элементов, больших своих соседей Помогите решить https://www.cyberforum.ru/ turbo-pascal/ thread367312.html
Turbo Pascal Написать программу циклической структуры типа for, while и repeat, выбор маршрута прохождения алгоритма предоставить пользователю. https://www.cyberforum.ru/ turbo-pascal/ thread367309.html
Написать программу циклической структуры типа for, while и repeat, выбор маршрута прохождения алгоритма предоставить пользователю. x/sinix Желательно еще и блок-схему показать как делать
Вычислить значение выражения Turbo Pascal
помогите, пожалуйста, решить задачу. Заранее спасибо. Написать программу для вычисления формулы : у=X1*Xn+X2*X(n-1)+...Xn*Х1 (значения Х1, Х2, Х3... выбираются случайным образом)
Turbo Pascal Какой тип данных в этой программе https://www.cyberforum.ru/ turbo-pascal/ thread367261.html
Какой тип данных в этой программе uses crt; type kultura=(kr,kp,sv,ps,kk,ms); mnz=set of kultura; const nmax=10; sp:array of string=('картофель','капуста','свекла', 'пшеница','кукуруза','маис'); var m:array of mnz; res:mnz;
Turbo Pascal Вычислить n-й член последовательности https://www.cyberforum.ru/ turbo-pascal/ thread367259.html
нужно разработать рекурсивные функции для вычисления n-го члена следующей последовательности: b1=-10 b2=2 b3=|b1|- 6b2 Fi+2=|bi|-6bi+1
Turbo Pascal Найдите пожалуйста ошибку
Зад 11 Составить функцию для вычисления корней системы уравнения вида: a1,x+b1y=c1, { a2,x+b2y=c2. В программе предусмотреть вывод вида и корней уравнения на дисплей. uses crt; type matr=array of integer; var n,m:integer; a:matr; procedure vvod(var n,m:integer; var a:matr); //процедура ввода var i,j:integer;
Turbo Pascal Задан алфавит из трех букв https://www.cyberforum.ru/ turbo-pascal/ thread367239.html
Пожалуйста помогите с заданием!!!очень надо!!!!буду благодарен!!!!! Задан алфавит из трех букв a, b, c. С помощью данного алфавита составлены два слова. Определить имеют ли они одно значение. Известно, что при замене ab на ba, ac на ca и cb на bc значение слов не меняется.
148 / 111 / 83
Регистрация: 09.09.2011
Сообщений: 274
16.10.2011, 22:13 0

Определить, есть ли среди чисел такие, в которых сумма старшей и младшей цифр больше заданного числа - Turbo Pascal - Ответ 2076141

16.10.2011, 22:13. Показов 1290. Ответов 10
Метки (Все метки)

Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
program lol;
uses crt;
var x,y:byte;
    i,n:integer;
begin
clrscr;
x:=0;
y:=255;
repeat
writeln('введите число');
readln(n);
until n>x+y;
writeln('число ',n,' больше суммы старшей и младшей цифр определяемых типом byte');
readln;
end.


Вернуться к обсуждению:
Определить, есть ли среди чисел такие, в которых сумма старшей и младшей цифр больше заданного числа Turbo Pascal
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.10.2011, 22:13
Готовые ответы и решения:

Определить, есть ли среди чисел такие, в которых сумма старшей и младшей цифр больше заданного числа
Определить, есть ли среди чисел диапазона, определяемого типом Byte, такие, в которых сумма старшей...

Определить, есть ли среди чисел такие, в которых сумма старшей и младшей цифр больше заданного числа
Помогите написать программу Определить, есть ли среди чисел диапазона, определяемого типом Byte,...

Определить сумму двухзначных чисел, сумма цифр которых больше заданного числа
Определить сумму двухзначных чисел, сумма цифр которых больше заданного числа. Решил через For....

Найти модуль разности старшей и младшей цифр заданного натурального числа
Найти модуль разности старшей и младшей цифр заданного натурального числа

10
16.10.2011, 22:13
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.10.2011, 22:13
Помогаю со студенческими работами здесь

Для заданного натурального n определить сумму всех цифр, кроме старшей и младшей
Функция должна для заданного натурального числа n определить сумму всех цифр, кроме старшей и...

Среди простых чисел , не превосходящих заданного натурального числа N .Найти такие, в десятичном представление которых больше всего нулей
Ребята помогите!!!!!!!!!!!!!! плс

Среди простых чисел , не превосходящих заданного натурального числа N .Найти такие, в десятичном представление которых больше всего нулей.
Форумчате помогите пожалуйста завтра зачет последняя прога ни как не выходит(

Определить сумму цифр старшей и младшей половины числа
Помогите, пожалуйста, не могу решить задачу до конца.... Дано натуральное число, требуется вывести...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru