Вопрос по информатике:
Помогите пожалуйста решить задачу на Pascal.
Прописать к числу 125 слева и справа по одной цифре так, чтобы полученное пятизначное число делилось на 3; 4 и 7. На вложенные циклы
- 24.11.2017 13:35
- Информатика
- remove_red_eye 3464
- thumb_up 44
Ответы и объяснения 1
Const A:array [1..3] of integer=(3,4,7);
var n, m, i,j :integer; s,t:string;
begin
for i :=1 to 9 do begin
s:='125';str(i,t);s:= t + s + t;
for j:= 1 to 3 do begin
n:= strTOInt(s);if n mod a[j] = 0 then m:= m +1;
//writeln(n);end;
if m = 3 then writeln(n);
s:='';m:=0;end;end.
- 25.11.2017 13:21
- thumb_up 20
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.