Пожаловаться
- 17.04.2018 05:19
- Информатика
- remove_red_eye 17083
- thumb_up 10
Ответы и объяснения 1
PascalABCNET
1.
var a,b,c,i:integer;
begin
for i:=100 to 999 do
begin
a:= i div 100;
b:= i mod 100 div 10;
c:= i mod 10;
if (a+b+c) mod 3 = 0 then writeln(i)
end;
readln
end.
2.
var a,b,c,d,i:integer;
begin
for i:=1000 to 9999 do
begin
a:= i div 1000;
b:= i mod 1000 div 100;
c:= i mod 1000 mod 100 div 10;
d:= i mod 10;
if (a+d) mod 5 = 0 then writeln(i)
end;
readln
end.
1.
var a,b,c,i:integer;
begin
for i:=100 to 999 do
begin
a:= i div 100;
b:= i mod 100 div 10;
c:= i mod 10;
if (a+b+c) mod 3 = 0 then writeln(i)
end;
readln
end.
2.
var a,b,c,d,i:integer;
begin
for i:=1000 to 9999 do
begin
a:= i div 1000;
b:= i mod 1000 div 100;
c:= i mod 1000 mod 100 div 10;
d:= i mod 10;
if (a+d) mod 5 = 0 then writeln(i)
end;
readln
end.
Пожаловаться
- 18.04.2018 00:17
- thumb_up 21
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы