Форум программистов, компьютерный форум, киберфорум
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<=5*a then y:=2.5*b*b+a*z-4.5*cos(x*z) else if x>b then y:=(a*a-5.4*x)*(a*a-5.4*x)*(a*a-5.4*x)+Ln(x*z) else if x<5*a 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
0 / 0 / 0
Регистрация: 09.11.2020
Сообщений: 4
21.01.2021, 23:46 0

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

21.01.2021, 23:46. Просмотров 782. Ответов 7
Метки (Все метки)

Ответ


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

Код:
Кликните здесь для просмотра всего текста
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
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.: Уверен можно написать куда правильней, но задача вроде как решается верно.

Вернуться к обсуждению:
Трёхзначное число
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.01.2021, 23:46
Готовые ответы и решения:

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

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

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

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

7
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.