PascalABC.NET

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

Войти

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

Другие темы раздела
PascalABC.NET Использование файлов в программах https://www.cyberforum.ru/ pascalabc-net/ thread2772857.html Подготовить данные об абитуриентах, поступающих в техникум. Информацию оформить в виде записей, содержащих следующие поля: 1. Фамилия, имя, отчество. 2. Год рождения. 3. Год окончания школы. 4....	PascalABC.NET Даны числа от 1 до 1000 и число m . Вывести результат целочисленного деления нечётных сотен на число m нужна помощь var a:array of integer; m,i,t:Integer; begin Randomize; write('M='); readln(m);
PascalABC.NET Задача с ошибкой Нельзя преобразовать тип Tuple<boolean,integer> к boolean program zadanie_3; var x,f:real; begin write('Введите x:');Readln(x); if(x<-5,4) then (x=x+1); if(x>=-5,4)and(x<=4.3) then sqr(x+2); if(x>4.3) then sqrt(sqr(x)+2); writeln('f=',f) end. ...	PascalABC.NET Столкнулся с проблемой: паскаль выводит нечитаемые иероглифы вместо кириллицы Заданием является: создать текстовый файл(в программе это lab2.txt), ввести туда любой текст и , с помощью программы, найти слово максимальной длины и вывести его в другой тестовый файл(в программе... https://www.cyberforum.ru/ pascalabc-net/ thread2772522.html
PascalABC.NET В текстовом редакторе создать текстовый файл, состоящий не менее чем из двух четверостиший. Изменить файл в соответствии https://www.cyberforum.ru/ pascalabc-net/ thread2772521.html Записать в конецфайла все слова, имеющие длину, большую или равную максимальной длине, максимальную длину считать с клавиатуры	PascalABC.NET Массив Дан массив А из 10 элементов, сформировать массив В из А следующим образом: - каждый элемент меньше 10 разделить на 2; -каждый элемент больший или равный 10 и меньше или равный 20 возвести в...
PascalABC.NET Создайте программу расчета функции y(x) для трех разных параметров что то не получается var x,a,b,z:real; begin if x<=5a then y:=2.5bb+az-4.5cos(xz) else if x>b then y:=(aa-5.4x)(aa-5.4x)(aa-5.4x)+Ln(xz) else if x<5a and x>=b then...	PascalABC.NET В списке поменять местами третий отрицательный элемент с минимальным значением Помогите пожалуйста. Нужно написать программу, пытаюсь на Паскаль АВС, но со списками совсем запуталась что-то. В списке поменять местами третий отрицательный элемент с минимальным значением. Если... https://www.cyberforum.ru/ pascalabc-net/ thread2772104.html
PascalABC.NET Работа с файлами https://www.cyberforum.ru/ pascalabc-net/ thread2772092.html Здравствуйте. Дано задание. Дан символьный файл F. Переписать в файл G сначала все нечѐтные его символы, а затем все чѐтные в обратном порядке. type rad = file of integer;{определяем имя типа...	PascalABC.NET Описать запись с именем Zodiac !Описать запись с именем Zodiac, содержащую следующие поля: 1) Фамилия, имя; 2) знак Зодиака; 3)день рождения (массив из трёх чисел) !Написать программу, выполняющую следующие действия: 1)Ввод... https://www.cyberforum.ru/ pascalabc-net/ thread2771984.html
PascalABC.NET Необходима программа которая посчитает сколько элементов в множестве D https://www.cyberforum.ru/ pascalabc-net/ thread2771865.html D:=	PascalABC.NET С использованием модуля GraphABC и CRT создать простую анимацию Нарисовать картинку по диагонали из разноцветных квадратов. Рисуется квадрат, задержка, рисуется следующий квадрат. https://www.cyberforum.ru/ pascalabc-net/ thread2771817.html

kirillband

0 / 0 / 0

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

Сообщений: 4

21.01.2021, 23:46

Трёхзначное число

21.01.2021, 23:46. Просмотров 782. Ответов 7

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

Ответ

У меня получились на выходе числа: 149 150 261 372 483 516 594 627 738 849 850 961

Код:

Кликните здесь для просмотра всего текста

Pascal

var
   x,a,b,c,d:integer;
   s,u:string;
begin
  for a:=100 to 999 do begin
    x:=a;
    s:=IntToStr(x);
    u:=Copy(s,0,2);
    b:=StrToInt(u);
    u:=Copy(s,2,2);
    c:=StrToInt(u);
    if ((b>9)and(c>9))then begin
    if (b>c)then d:=b-c;
    if (c>b)then d:=c-b;
    if (d=35)then println(a);
      end;
  end;
end.

Скрин:

Кликните здесь для просмотра всего текста

P.S.: Уверен можно написать куда правильней, но задача вроде как решается верно.

Вернуться к обсуждению:
Трёхзначное число

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

21.01.2021, 23:46

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

Функции. Вернуть трехзначное число по известным цифрам и определить, кратно ли полученное число трем
Доброго времени суток! Не пойму, как из 3 отдельных цифр, введённых пользователем, получить...

Какое трехзначное число равно кубу цифры его единиц
Какое трехзначное число равно кубу цифры его единиц, а также квадрату числа, составленного из его...

Получить случайное трехзначное число и вывести его отдельные цифры
Получить случайное трехзначное число и вывести его отдельные цифры : получено число 123 сотни 1...

Найти и вывести минимальное трехзначное число, записанное в данном массиве
Дан целочисленный массив из 30 элементов, все элементы которого – неотрицательные числа, не...

Наверх