Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal Поиск четырехзначных чисел по условию Найти общее количество натуральных четырехзначных числа, в десятичной записи которых нет одинаковых цифр, и разность двух натуральных двузначных чисел, составленных из двух последовательных первых цифр и двух последовательных последних цифр числа, равна сумме всех цифр числа. Вот мой код: Program 3; Var i: integer; Begin for i:=1000 to 9999 do if ((i div 100) - (i mod 100)) = ((i mod... https://www.cyberforum.ru/ pascal/ thread1347892.html	Найти число общих точек отрезка и указанной системы окружностей Pascal На плоскости задана система концентрических окружностей, центры которых находятся в начале координат, а радиусы равны 1, 2, 3, . . . . Также на плоскости задан отрезок, концы которого находятся в точках (x1, y1) и (x2, y2). Необходимо найти число общих точек этого отрезка и указанной системы окружностей. Входные данные Входной файл INPUT.TXT содержит четыре целых числа: x1, y1, x2 и y2....
Pascal N-угольное колесо https://www.cyberforum.ru/ pascal/ thread1347691.html На одном известном автозаводе страны N-мерики главный инженер-рационализатор внес предложение вместо круглых колес использовать колеса в форме правильных N-угольников. "При этом", — сказал он, "важным показателем качества такого колеса будет разность между радиусом описанной окружности и радиусом вписанной окружности." Причем колесо считается качественным, если его показатель качества меньше...	Pascal Матрица смежности https://www.cyberforum.ru/ pascal/ thread1347643.html Матрица смежности Дана матрица весов дуг. Определить и вывести все циклы в орграфе, заданной длины х (вводится с клавиатуры) Дан рисунок
Pascal В массиве удалите элементы, кратные 5; после чего выведите массив на экран С клавиатуры вводится одномерный массив целых чисел: сначала вводится количество элементов в массиве (от 1 до 100), а потом вводятся собственно элементы массива. В массиве удалите элементы, кратные 5; после чего выведите массив на экран. Программа должна работать по следующему алгоритму: ввод, обработка, вывод.	Pascal Используя функцию, вычислить значение выражения Используя функцию вычислить: https://www.cyberforum.ru/ pascal/ thread1347554.html
Pascal Переписать в новый файл информацию о штрафах, размер которого и дата вводятся с клавиатуры ID ообщение : Дан массив записей, представляющий собой меню ресторана. Вывести самое популярное блюдо, стоимость которого не превышает 300 рублей на языке паскале. тема : Использование комбинированного и множественного типа. Добавлено через 2 минуты это вопрос для работи с строками. я хочу помошь. Добавлено через 14 минут https://www.cyberforum.ru/ pascal/ thread1347506.html	Если слово начинается с нечётной позиции, то записать символы этого слова в обратном порядке Pascal ID сообщение : дана строка состоящая из слов. Если слов начинает с нечётной позиции то записать символы этого символы в обратном порядке. на языке паскаль тема : работа с строками Добавлено через 1 час 18 минут ID Сообщение : дана срока состоящая из слов . Если слов начинает с нечётной позиции то записать символы этого слова в обратном порядке.
Pascal Удалить из строки повторяющиеся слова, разделенные пробелами, запятыми, точками var a:string; b:arrayof string; c:arrayof integer; i,j,k:integer; begin writeln('vvedite stroku'); readln(a); a:=' '+a; for i:=1 to length(a)do https://www.cyberforum.ru/ pascal/ thread1347498.html	Pascal Найти количество симметричных строк, которые не содержат цифр https://www.cyberforum.ru/ pascal/ thread1347245.html Условие: Дан массив строк. Найти количество симметричных строк, которые не содержат цифр. Мое решение: var s:Tar; i:Tind; j,k,sum:integer; b:boolean; for i:=1 to n do readln(s); sum:=0; for i:=1 to n do begin k:=0;
Проверить блок-схему Pascal var a, n: integer; r: real; i: byte; begin write ('Число: '); readln (a); write ('Степень: '); readln (n);	Pascal Определить, содержит ли заданный массив группы элементов, расположенные в порядке возрастания их значений Определить, содержит ли заданный массив группы элементов, расположенные в порядке возрастания их значений. Если да,то определить количество таких групп. Удалить из массива первую такую группу. https://www.cyberforum.ru/ pascal/ thread1347048.html

Puporev

Почетный модератор

64291 / 47589 / 32740

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

Сообщений: 115,181

07.01.2015, 13:42

После каждого числа n, в котором число десятков меньше числа единиц, вставьте n - Pascal - Ответ 7076701

07.01.2015, 13:42. Показов 1283. Ответов 1

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

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

Решение

Pascal

uses crt;
const nmax=100;
var a:array[1..2*nmax] of integer;
    n,i,j,b,c:byte;
begin
clrscr;
repeat
write('Размер массива от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
c:=n;
writeln('Введите элементы массива целые числа');
for i:=1 to n do
 begin
  write('a[',i,']=');
  readln(a[i]);
 end;
clrscr;
writeln('Исходный массив');
for i:=1 to n do
write(a[i]:4);
writeln;
i:=1;
while i<=n do
 begin
  b:=abs(a[i]);
  if b div 10 mod 10<b mod 10 then
   begin
    inc(n);
    if i=n-1 then a[n]:=c
    else
     begin
      for j:=n downto i+2 do
      a[j]:=a[j-1];
      a[i+1]:=c
     end;
    inc(i,2)
   end
  else inc(i);
 end;
writeln('Вставка числа ',c);
for i:=1 to n do
write(a[i]:4);
readln
end.

Вернуться к обсуждению:
После каждого числа n, в котором число десятков меньше числа единиц, вставьте n Pascal

Programming

Эксперт

94731 / 64177 / 26122

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

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

07.01.2015, 13:42

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

Определить двухзначное число, в котором число десятков соответствует первой цифре заданного числа, а число единиц-последней
2.Дано целое положительное четырёхзначное число. Напишите программу, позволяющую определить...

После каждого отрицательного числа вставьте в вектор отрицательное число -20 и выведите содержимое вектора
После каждого отрицательного числа вставьте в вектор отрицательное число -20 и выведите содержимое...

Найти двузначное число,равное квадрату числа его единиц,сложенному с кубом числа его десятков
Найти двузначное число,равное квадрату числа его единиц,сложенному с кубом числа его десятков на...

Найти двузначное число,равное квадрату числа его единиц,сложенному с кубом числа его десятков
С циклом(For) Найти двузначное число,равное квадрату числа его единиц,сложенному с кубом числа его...

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

07.01.2015, 13:42

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

Найти первое двузначное число, равное квадрату числа его единиц, сложенному с кубом числа его десятков
Используя цикл do/while Найти первое двузначное число, равное квадрату числа его единиц,...

Найти двухзначные числа, равные сумме куба числа единиц и квадрата числа десятков
Найти двухзначные числа, равные сумме куба числа единиц и квадрата числа десятков

Найти число десятков, единиц, сумму и произведение цифр числа
1б) дано трехзначное число. Найти число десятков , число единиц в нем, сумму и произведение его цифр

Дано трехзначное число. Вывести число, полученное при перестановке цифр десятков и единиц исходного числа (например, 123
Задание: Дано трехзначное число. Вывести число, полученное при перестановке цифр десятков и единиц...

Вывести число, полученное при перестановке цифр десятков и единиц трехзначного числа
Дано трехзначное число. Вывести число, полученное при перестановке цифр десятков и единиц исходного...

Из четырехзначного числа получить: первое число - сумма тысяч и сотен, второе - десятков и единиц
Кто понимает Haskell решите задачу пожалуйста Из четырехзначного числа получить число...

Наверх