Вопрос по информатике:
Написать программу на языке паскаль
нахождения всех трехзначных чисел, у
которых все цифры различны, а также
которые кратны семи не только сами, но и
сумма цифр этих чисел. помогите пожалуйста!
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 12.03.2018 23:04
- Информатика
- remove_red_eye 6211
- thumb_up 45
Ответы и объяснения 1
Procedure TForm1.Button1Click(Sender: TObject);
var
i1,i2,i3 : Integer;
kk : Integer;
Chislo : Integer;
begin
Memo1.Clear;
kk := 0;
for i1 := 1 to 9 do
for i2 := 0 to 9 do
for i3 := 0 to 9 do
if ( (i1i2) and (i1i3) and (i2i3) ) then
if ( Frac((i1+i2+i3)/7)=0 ) then
begin
Chislo := i1*100 + i2*10 + i3;
if ( Frac(Chislo/7)=0 ) then
begin
Memo1.Lines.Append(inttostr(Chislo));
inc(kk);
end;
end;
end;
- 13.03.2018 06:11
- thumb_up 28
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.