Var i,j:integer;
begin
for i:=0 to 9 do
for j:=0 to 9 do
if (42000+i*100+40+j) mod 72 = 0
then writeln(42000+i*100+40+j);
end.
Результат:
42048
42840
Ответ:Ммм... Паскаль) Для этого сайты есть.
Объяснение:
var a,a12,a1,a2,a3,s: integer;
begin
readln(a);
a1:=a div 100;
a12:=a mod 100;
a2:=a12 div 10;
a3:=a12 mod 10;
s:=a1+a2+a3;
writeln(s);
end.
a1-первое число трехзначного числа, a2-второе,a3-третье, a12-вторые два числа
В одном каталоге не может быть двух папок или двух файлов с одинаковыми именами. В данном случае в папке USERS есть две папки PETER, чего быть не может.