Форум программистов, компьютерный форум, киберфорум
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
1516 / 858 / 365
Регистрация: 07.04.2017
Сообщений: 3,449
22.01.2021, 02:20 0

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

22.01.2021, 02:20. Просмотров 782. Ответов 7
Метки (Все метки)

Ответ


Цитата Сообщение от kirillband Посмотреть сообщение
149
94-14 = 80. Вроде решается неверно. И ни одно из ваших чисел не подходит.

Я даже больше скажу - ни одно из трёхзначных чисел не подходит:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
##
for var i3 := 0 to 9 do
  for var i2 := i3 to 9 do
    for var i1 := i2.ClampBottom(1) to 9 do
    begin
      
      var n1 := i1*10 + i2;
      var n2 := if i3=0 then
        i1*10 + i3 else
        i3*10 + i2;
      
      //ToDo Временно убрал, с ним выводит только правильные результаты, которых нет
//      if n1-n2 <> 35 then continue;
      
      $'{i1}{i2}{i3}: {n1} - {n2} = {n1-n2}'.Println;
      if i2<>i3 then
      $'{i1}{i3}{i2}: {n1} - {n2} = {n1-n2}'.Println;
      
      if i2=0 then continue;
      if i2<>i1 then
      begin
      $'{i2}{i1}{i3}: {n1} - {n2} = {n1-n2}'.Println;
      if i1<>i3 then
      $'{i2}{i3}{i1}: {n1} - {n2} = {n1-n2}'.Println;
      end;
      
      if i3=0 then continue;
      if i3<>i2 then
      begin
      $'{i3}{i2}{i1}: {n1} - {n2} = {n1-n2}'.Println;
      if i1<>i2 then
      $'{i3}{i1}{i2}: {n1} - {n2} = {n1-n2}'.Println;
      end;
      
    end;


Вернуться к обсуждению:
Трёхзначное число
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.01.2021, 02:20

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Написать программу которая из трех цифр составит наибольшее трёхзначное число
Написать программу которая из трех введённых нами цифр составит наибольшее трёхзначное число

Дано трехзначное число. Найти произведение его первой и второй цифры
ХЕЕЕЕЕЛП

Дано трёхзначное натуральное число. Является ли цифра единиц равной 3 или 7?
Дано трёхзначное натуральное число. Является ли цифра единиц равной 3 или 7?

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

Если число трёхзначное - вывести первую цифру этого числа, иначе последнюю
Дано число N,если оно трёхзначное вывести первую цифру этого числа,если нет,то последнюю.

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

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