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

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

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

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

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

Pascal

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

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

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.

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

Решение

Решение

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

Новичок 1642 / 1091 / 487 Регистрация: 17.07.2012 Сообщений: 5,345
	12.02.2013, 18:08	4
	Сообщение от Cyborg Drone И правильная работа Вашей программы - чистая случайность. Бывают же чудеса.Действительно неправильно,спасибо что подсказали,буду знать как решать подобные задачи. 0

Опции темы