Определить трехзначное число, обладающее следующими свойствами: число начинается цифрой 4

@Maz220297 · Регистрация: 04.02.2013

Студворк — интернет-сервис помощи студентам

Определить трехзначное число, обладающее следующими свойствами: число начинается цифрой 4. Если эту цифру перенести в конец числа , получится число составляющее 3/4 исходного числа.

Новичок · 11.02.2013, 17:44

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
program a2;
uses crt;
var i,j,p,k:Integer;
r:Real;
begin
ClrScr;
for i:=1 to 9 do 
for j:=1 to 9 do
begin
p:=400+i*10+j;
k:=i*100+j*10+4;
if k/p=3/4 then Writeln('Найденное число:',p);
end;
Readln;
end.

@Cyborg Drone · 12.02.2013, 15:35

Pascal
1
2
3
4
5
6
7
8
program a2;
uses crt;
var i:Integer;
begin
ClrScr;
for i:=10 to 99 do if 3*(400+i)=4*(10*i+4) then Writeln('Найденное число: ',400+i);
Readln;
end.

Добавлено через 4 часа 24 минуты
...или так:

Pascal
1
for i:=10 to 99 do if 3*(400+i)=4*(10*i+4) then Writeln('Найденное число: 4', i)

Добавлено через 7 часов 11 минут
Андрей_Новичок, в Вашей программе есть ошибки и неточности. И правильная работа Вашей программы - чистая случайность.

Сообщение от Андрей_Новичок

Pascal
1
2
for i:=1 to 9 do 
for j:=1 to 9 do

- не учитываются числа , оканчивающиеся нулём. В общем случае, число вполне может оканчиваться нулём. То есть, в алгоритме не учтено множество всех возможных входных значений.

Сообщение от Андрей_Новичок

Pascal
1
if k/p=3/4...

- неявное преобразование в вещественное число. Из-за ошибок округления при делении возможно ложное невыполнение условия.

Применяйте более строгий подход при составлении программ, не допускайте неоднозначностей и упущений при написании кода во избежании трудно устранимых ошибок.

Всего Вам доброго.

Новичок · 12.02.2013, 18:08

Сообщение от Cyborg Drone

И правильная работа Вашей программы - чистая случайность.

Бывают же чудеса.Действительно неправильно,спасибо что подсказали,буду знать как решать подобные задачи.

@orange_rush · 25.03.2013, 21:16

Pascal
1
2
3
4
5
6
7
8
Var i,k:Integer;
BEGIN
For i:=400 To 499 Do Begin
    k:=(i-400)*10+4;
    If k=i/4*3 Then Writeln(i,' - ',k);
End;
Readln;
END.

Новые блоги и статьи Все статьи Все блоги /
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .

Определить трехзначное число, обладающее следующими свойствами: число начинается цифрой 4

Решение

Решение

@Maz220297 0 / 0 / 0 Регистрация: 04.02.2013 Сообщений: 40

	Определить трехзначное число, обладающее следующими свойствами: число начинается цифрой 4 11.02.2013, 17:29. Показов 3726. Ответов 4 Метки нет (Все метки) Определить трехзначное число, обладающее следующими свойствами: число начинается цифрой 4. Если эту цифру перенести в конец числа , получится число составляющее 3/4 исходного числа. 0