Pascal ABC

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal ABC Циклические процессы Затабулировать функцию двух переменных z(x,y) ,где xmin<=x<=xmax, ymin<=y<=ymax, шаг дельта х=дельта y. Напечатать и вывести в виде таблицы значения z(x,y)=конень квадратнай из (корень квадратный из х + 3х- y во второй степени) х= y= дельта x=дельта y=0,3 ВОТ ЧТО У МЕНЯ ВЫШЛО,НО ПОЧЕМУ-ТО НЕ РАБОТАЕТ ПОМОГИТЕ ПОЖАЛУЙСТА program tab; https://www.cyberforum.ru/ pascalabc/ thread212782.html	Обработка одномерных массивов Pascal ABC 1. Вычислить среднегеометрическое значение четных по значению элементов второй четверти массива. 2. Определить значение по модулю самое близкое к заданному числу С среди положительных элементов всего массива. 3. Упорядочить положительные элементы второй половины массива по убыванию модулей обратных значений.
Pascal ABC как делать ? при вводе какого - либо текста , на экран должно выводиться каждое второе слово , как это сделать , помогите пожалуйста, извиняюсь если не туда написал https://www.cyberforum.ru/ pascalabc/ thread212780.html	Pascal ABC 100 простых чисел Написать две программы,которые будут выводить первые сто простых чисел 1)Через вложенные циклы 2)Через процедуры https://www.cyberforum.ru/ pascalabc/ thread212778.html
Найти 100 первых простых чисел. Pascal ABC Найти 100 первых простых чисел. Сделать две программы: 1)Осуществить при помощи вложенных циклов 2)Осуществить при помощи процедур	Pascal ABC Обработка одномерных массивов 1. Вычислить среднегеометрическое значение четных по значению элементов второй четверти массива. 2. Определить значение по модулю самое близкое к заданному числу С среди положительных элементов всего массива. 3. Упорядочить положительные элементы второй половины массива по убыванию модулей обратных значений. https://www.cyberforum.ru/ pascalabc/ thread212754.html
Pascal ABC дано предложение. Напечатать все его слова в порядке неубывания их длин. Помогите плиииз!!! Дано предложение. Напечатать все его слова в порядке неубывания их длин. https://www.cyberforum.ru/ pascalabc/ thread212748.html	Pascal ABC Перечислить все разбиения целого положительного числа Бился-бился, так и не смог решить, помогите, пожалуйста, вот задача: Перечислить все разбиения целого положительного числа N на целые положительные слагаемые (разбиения, отличающиеся лишь порядком слагаемых считаются за одно). Пример: N=4 Разбиения: 1+1+1+1, 2+1+1, 2+2, 3+1, 4
Pascal ABC Замена стандартных процедур и функций для работы со строками Уважаемые форумчане!!! Написал программу для Length и Copy, не знаю как реализовать Delete, Pos, Insert код для Length program Length_1; var a: string; i: integer; Procedure My_length(s:string; j: integer); begin i:=Ord(s); end; https://www.cyberforum.ru/ pascalabc/ thread212706.html	Pascal ABC Найти все натуральные четырехзначные числа, цифры в которых обра¬зуют строго возрастающую последовательность. https://www.cyberforum.ru/ pascalabc/ thread212699.html 20. Найти все натуральные четырехзначные числа, цифры в которых обра¬зуют строго возрастающую последовательность (например, 1234, 5789). Добавлено через 28 минут помогите пожалуйста
Pascal ABC расчёт времени движения парашютиста помогите построить модель для рассчета времени движения парашютиста с высоты h (её впоследствии надо вводить). паскаль изучала давно. очень давно. пожалуйста помогите.	Pascal ABC как возвести в степень подскажите как возвести 1.5cos в 4 степень в паскале??? https://www.cyberforum.ru/ pascalabc/ thread212664.html

marshal

Robin Bad на форуме

237 / 237 / 194

Регистрация: 14.12.2010

Сообщений: 513

16.12.2010, 21:44

Выяснить, первая или последняя цифра в записи числа наибольшая - Pascal ABC - Ответ 1209879

16.12.2010, 21:44. Показов 2669. Ответов 3

Метки (Все метки)

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

Решение

Pascal

program marshalgykov;
uses crt;
label 10;
var
a, b, c, d:integer;
begin
10:
clrscr;
writeln('Введите своё трёхзначное число');
readln(c);
If (c<100) or (c>999) then goto 10;
a:=c div 100;
b:=c mod 10;
If b>a then
begin
writeln('Последняя цифра - ',b,' больше первой ');
readln;end;
If a>b then
begin
writeln('Первая цифра - ',a,' больше последней ');
d:=(c mod 100) div 10;
writeln(d);
readln;end;
If b=a then goto 10;
readln;
end.

Вот так вроде... А формулу чётного числа я че-то забыл, там я нашел среднюю цифру, а далее попробуйте сами.

Вернуться к обсуждению:
Выяснить, первая или последняя цифра в записи числа наибольшая Pascal ABC

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

16.12.2010, 21:44

Готовые ответы и решения:

Определить,какая цифра числа-первая или последняя больше.
Определить,какая цифра числа-первая или последняя больше.

Определить является ли первая и последняя цифра числа одинаковой
В диалоговом режиме задаётся длинное целое число А (long int). Определить является ли первая и...

Определить, является ли первая и последняя цифра числа одинаковой
Определить, является ли первая и последняя цифра числа одинаковой. на с++

Составить программу, определяющую совпадают ли первая и последняя цифра числа
Составить программу, определяющую совпадают ли первая и последняя цифра числа.

	16.12.2010, 21:44

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

16.12.2010, 21:44

Помогаю со студенческими работами здесь

Вывести на экран те числа у которых первая и последняя цифра одинаковая
Дан массив из Хn натуральных чисел. Вывести на экран те числа у которых первая и последняя цифра...

Определить, какая цифра в числе есть большей – первая или последняя
Наткнулся на задачу вот задача: Задано трицифровое число. Определить, какая цифра в нем есть...

Выяснить совпадают ли первая и последняя цифры натурального числа n
Выяснить совпадают ли первая и последняя цифры натурального числа n, представленного и...

Удалить из массива все числа, в которых первая и последняя цифра совпадают
Удалить из массива все числа, в которых первая и последняя цифра совпадают.

Наверх